—E7FL 7A 156A = 1834 CEC EBUFCT 60-YESy PRINT ONE &% AND RETURN 
CETF4A = BD EPAAS oe 1885 SSR GTCHRA] | Pi 
2 ECE . TEZEOIS<:, oes 2"1B36 SMP EMTEBFE 


ISIFP 


TYPE A RS=-232 PROGRAM 
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ETFA 


E7FC 
E7FE 
E801 


E804 
E807 


E80B 


E80E | 


E811 
E814 
E818 
E818 


E81E 
E821 


E824 
E826 


1025 O10D. 


BD 
BD 
BD 


D3 
29 
E908 


—E?4A 


E948 


E908 
E74A 


E948 


1025 0100 


BD 


E960 
E6CC 
E93E - 


E74A 


a= 


F2EO 


1025 FFEA 


‘By 


SE 


30 


BD 


7E- 


81 


BD 


“7E 


1587 
C196 


OB 
FO90 


(1025 FFDB 


E821 


PO we: 
1026 00C4 


F2E6 
1025 FFCB 


1587 


C196 
88 12 
F090 


7 1025 FFBB 


e821 


ISIFP.SRC 


pe sicce 
1839 


1840 


1841 


1842 
1843 


(1844 


1845 


1846 


1850 ~~ 


1847 


1848 


1849 


1851 


1852 


1853 


1855 
1856 
1857 


1858 
1859 


1860 
1861 | 


1862 


1863 


1864 


1865 
1866 


1867 


1868 
1869 


1870 


see: oan 

aa 1-0: 
‘1877 
1878 


1871 
1872 
1873 
1874 


1879 


1880 


1881 
1882 


1883 — 


55-Mar-84. 


~CKEFRLN 


CKDON2 | 


CKDONE 


CKDON1 


CKMICR 


103. 


aoe 


eee 


1884 | 


1885 


1886 


IMP 


(849256 | 


kone 


CHPA so HEBCL CHARe Lo? 
BNE CKMICR © NOs CHECK FOR MICR SEQUENCE 
JSR STEBUF. -YESs.STORE IT. > 
JSR GTCHRA 
JSR VLDHEX NEXT CHAR. VALID HEX 2 
LBCS § EMTEBF -NO,y EMPTY BUFFER & RETURN 
JSR “STEBUF YES, STORE IT © 
JSR GTCHRA | : 
JSR VLDHEX NEXT CHARs VALID HEX 2? |. 
LBCS EMTEBF -<-NOy EMPTY BUFFER & RETURN 
JSR GTNUML =-YESs CONVERT HEX CHARACTERS 
JSR FRMLEN SET FORMS LENGTH 
JSR EBINIT 
JSR GTCHRA | | | 
ANDCC #!N(CBIT) CLEAR C IF NO ACTION TAKEN IN CKESC1 
RTS RETURN. | : : 
CMPA #EBCM CHAR. = '™! ? 
BNE CKSLD | -NO» CHECK FOR SLD SEQ. 
JSR STEBUF ~YES, STORE 'M! 
JSR. GTCHRA GET NEXT CHAR» 
CMPA #EBC1 CHAR. = ‘'1' ? 
BNE 10% | : 
JSR EMTYBF =YESs) EMPTY OUTPUT BUFFER. 
LBCS  CKDON1 | Cc SET MEANS PRINTER DEAD 
STA MCRFLG SET MICR FLAG 
LDX #CONFIG. SEND MICR ON SEQ. 
LEAX MCRON»X | | : 
JSR. OUTX - | oe 
LBCS | CKDONI C SET MEANS PRINTER DEAD 
MP CKDON2 ~ & RETURN 
—CMPA  -#EBCO. - =NOy CHAR. = 'O" 2- 
-LBNE = EMTEBF NOs EMPTY ESCAPE BUFFER & RETURN 
| EMTYBE -YES» EMPTY THE OUTPUT BUFFER | 
-LBCS ~~ CKDON1 C SET MEANS PRINTER DEAD 
-MCRELG CLEAR MICR FLAG | 
“EDX oo 4 CONFIG SEND MICR OFF ‘SEQ. 
LEAX MCROFF 9X. 
JSR. OUTX 
LBCS CKDONL c SET MEANS: PRINTER DEAD 
& RETURN 


EB6E 
E870 


E874 
E877 
E87A 


E87C 


E880 
£882 


E886. 


E889 


E88C 


E88E 


E892 
E894 


—EB98B | 


_ EB9A 


~E89C. 


E89F 
E8A1 
E8A3 
E8A5 
—E8A6 


EBAB 
E8AA 


E8AC 


E8AE 


E8B1 


E8B5 


E8B8 — 
E8BA | 


E8BC 


E8BE 
—ESCL 


E8C5 
E8C7 


~ E8C9 


 E8CB 
E8CD 
—EBCE. 
— E8DO- 
-E8D2 
E8D5 


81 | 
1026 006C | 


BD 


BD 
81 


81 


D5 


E908 — 


E74A 


Ei 


(1023 0098 


FA. 


1024 0092 


BD 
BD 


81 


E908 
E74A 
EF 


1023 0086 


81 


1025-FRbL 


OA 


26 


FA 
1024 0080 


FO 
02 
156B 
82 
FO 
OA 


F2E6 


FO80 


3C 


FR 


80. 


3C 


85 


80 


FO80. 


1025 FRF4D 
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1888 
1889 
1890 
1891 
1892 


1893. 


1894 


1895. 
1896. 


1897 


1898 
1899 


1900 
1901 


1902 


1903 
1904 


1905 
1906 


1907 
1908 


1909 — 
1910 
1911 


1912 
1913 
1914 
1915 


1916 


1917 
1918 


“1919 
~~ 1920 
1921 


1922 
1923 
1924 


1925 


1926 


‘AL92¢ 


1928 


1929 


10% 


1930... 


1931 


1932 
1933 
1934 
1935 — 

1936. 

1937. 0° 
$EO 38. oo 
5 £939-0> 


20% 


~CKSLD 


3.0%. 


CMPA 


LBNE 


JSR 


JSR 


CMPA 


LBLS 


CMPA 


~LBHS 


JSR 
JSR 


CMPA 


LBLS 


CMPA 


LBHS 


SUBA 
PSHS 


LOX 


LDA 
SUBA 
LOB 
MUL 


~ADDB 


CMPB 


BLS 


-LDB 


JSR 
LBCS 


LDX 


LDA 


STA 
LDA | 
JSR 
LBCS 


DEG: 


BNE 


LDA. 
a A a 
MUL 
~LEAX — 
» LDA. 
eos, BCS es 


#EBCN 


CKHEX 


STEBUF | 
— GTCHRA. 


#$EF 
EMTEBF 


HEF A. 
EMTEBF 


STEBUF 
GTCHRA 


ORSEF 


EMTEBF 


HOFFA 


EMTEBF 


#%FO 

A 
EBUFPT 
9—~X 
#SFO 


#SOA 


St 


#310 
5% 


#306 
EMTYBF 


CKDONI | 


#SLDTAB 


9X+ 
COUNTR 


9 Xt 


DEVOUT 


CKDONI 


COUNTR 


10$_ 


eet Ee 
COUNTR © 


Beg Xe © 
St a 
 CKOONI 
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—- CHARe = INI? 


“YES, STORE 'N® 
GET NEXT CHARe 
VALID DECIMAL CHAR. ? 


YES, STORE IT 


NEXT CHARs VALID DECIMAL ? 


YES» CONVERT 2ND EBCDIC TO DECIMAL © 


SAVE IT | oe 
CONVERT 1ST EBCDIC TO DECIMAL 
MULT» (ACCB X 'OAT) | 
ADD IN 1ST CHAR. 

SLO.<= 16°20 


-NO,» DEFAULT TO 6 
EMPTY QUTPUT BUFFER 


POINT TO SLD TABLE 


OUTPUT FIXED SLD SEQUENCE 


- QUTPUT VARIABLE SEQUENCE 
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E8D9 OA 3C | 19400 | — DEC SOCOUNTR: poe 
E8DB £26 F3 - (1941, BNE 30$ _— oe 
—8DD 7E E821 pg ADRS et IMP CKDON2 & DONE:- =. 





-ISIFP 


| CR6809/11 *version 10. 36-620 
TYPE A RS- 232 PROGRAM — : 


E8E0 
E8E3 


E8E? 
E8EA 
E8ED 


-E8FO 


EBE4 


 EBF? 


E8FA 
E8FE 


E901 


E905. 


E908 


EQOA 


E90D 


E9OF 


ESL? 


E915: 


E917 


E918 


EQLA 
~ E9Y1D 


£925 
E928 
—E92A 


EQ1F. 


E922 


E92D 


E930 
E933. 
£935 
E938 


-EQ3A 


E93C 


BD 


1025 0031 


BD 
BD 
BD 


E948 


E908 
E74A 
E948 


1025 0024 


BD 


E960 


BD F2E6 
1025 FF28 


BD 


TE 


FO80 


1025 FF21 


E821 


53 
1568 


156B 


156A 
53: 


ISIFP. SRC 


1945 


1946 
1947. - 
1948. 


1949 
1950 


1951 


1952 


(1953 


1954 


1955 > 
1956 


1957 
1958 


1959 


1961. 


1962 
1963 
1964 


1965 
1966 — 


1967 


1969. 


1970 


19721 
1972 


1973 


1974 


1975 
1976 


hee 


1978 


1979 


1980 | 
1981. 


(1982 
1983 


5 -Mar-8 4. 


_ CKHEX 


STEBUF 


~EMTEBF 


10% 


BCS” 


204 


DEC 


-  BaAyPC 


8249356 | oaeee 37. 
JSR VLDHEX: “VALID HEX CHAR. ee 
LBCS = EMTEBF -NOy EMPTY BUFFER & RETURN 
JSR STEBUF YES» STORE IT 
JSR: GTCHRA | 
JSR VLDHEX NEXT CHARe VALID HEX ? | 
LBCS. EMTEBF -NO»y EMPTEY BUFFER & RETURN 
JSR GTNUML —-YES, CONVERT TO HEX 
JSR EMTYBF EMTPY OUTPUT BUFFER | 
LBCS CKDONL CARRY SET = TIME OUT EXCEEDED 
JSR DEVOUT OUTPUT CHARe 
LBCS CKDUN1L CARRY SET MEANS PRINTER DEAD 
JMP CKDON2 RETURN 
STX XSAV STORE CHARe IN ESCAPE BUFFER 
LOX EBUFPT  * | 
STA Xt 
* SL EBUFPT 
-INC EBUFCT 
LDX XSAV 
RTS 
PSHS AsB SAVE CURRENT CHAR 
LDB EBUFCT ESCAPE BUFFER EMPTY? 
BEQ 208 —YESs LEAVE 
LDX #HEBUFBG -NOs INIT. POINTER 
STX EBUFPT 3 
L DX — EBUFPT | 
LDA Xt GET NEXT CHAR 
S TX EBUFPT . _ 
JSR CVTEBC CONVERT CHAR 
JSR PRINTA . OUTPUT CHAR 
20% CARRY SET MEANS PRINTER DEAD 
| EBUFCT BUFFER EMPTY YET? 
“BNE (10$° =NO»s GET NEXT CHAR 
ANDCC  #!N(CBIT) ~~ CLEAR CARRY 


ISIFP. CROE809/11 version 10.36020° 
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E93E 7F 156A 
F941 8E 1560 
E944 BF 156B 
(£947 39 


E948 81 CO 
E94A 23 0C 
E94C 81 C6 
E94E 23 OD 
E950 61 EF 
E952 23 04 
E954 81 F9 
E956 23 05 
£958 LA. O1 


E95A 7E E95F 
E95D 1C FE 
E95F 39 
E960 BD E6EA 
E963. 34 02 

E965 BE 1568 
E968 A6 82 
E96A BD EGEA 

 E96D = 35 04 | 
E96F BD E6DF 


E972 39 


- ISIFP.SRC 


1985 
(1986 


1987 
1988 


1990 | 


1991 


1992 


(1995. 


1993. 


1994 


1996 
1997 
1998 
1999 
2000 
2001 


2003 
2004 
2005 


2006 


2007 | 
2008 


2009 


2010 


5—Mar-84 8:49:56 


EBINIT 


VLDHEX 


10% 


20 
303 


40% 


GTNUM1 | 


CLR 


LDX- 


STX 


RTS 


CMPA. 


BLS 
CMPA 
BLS 
CMPA 
BLS 


CMP A 


BLS 
ORCC 


SMP. 
ANDCC 


RTS | 


JSR 
PSHS 
LDX 


LDA 


JSR 


PULS 


JSR 


RTS 


#!N(CBIT) 


DECOD1 


Page 37-1 


EBUFCT INIT+ ESCAPE BUFFER 
#EBUF BG | ee 


—EBUFPT 


#$CO 

10% 

#$CO 

30% 

#$EF 

103 

HEY 

30$ 

#CBIT 

40% | 
CLEAR CARRY 


CONVERT SECOND CHAR. 
a ors 
EBUFPT 
97X 
DECOD1 
Bas 
PACKA 


CONVERT 1ST CHAR 


PACK INTO ACCUMULATOR A | 


“ESTER. 
TYPE A RS—232 PROGRAM 


E973 


E975 


E979 
E97B 
E97D 


E977 


 E97F 


E986 

E988 

EE 9BA 
EIB B . 


E982 


34 
LF. 
3A 

35. 


nee 
89. 


O42, 
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ISIFP «SRC 


2012 


2013. 


2014 


2015, 


2016 


2017 


2018 


2019 | 


2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 


2030 


2031 
2032 
2033 


2034. 


2035 
2036 


2037 


2038 


2039 


2040 


2041 


2042. 


2043 
2044 
2045 
2046 


2047 


2048 
2049 


2050 
2051 


2054. 


2056..." 


2052 


2053 


82007 


2058 | 
LOD woe 


“5-Mar-84 


nee, ae ec 


* 
x 
* 
* 
* 
* 
x 
* 
e 
* 
*K 
* 
* 
* 
* 


a Me Meet ek CHO HOE ESHER IE 
* xe 
x "CVTEBC! CONVERTS LUL EBCDIC CODE TO DEVICE BUFFE ER x 
of : CODE. (UPPER LOWER CASE). 7 * 
x * 
# CONVERSION IS DEPENDENT ON FRONT PANEL _ 
a DIP SWITCH SETTING FOR MULTIPLE CHAR. * 
* SETS AS FOLLOWS. * 
ote | . | OR 
* S7 ON PCB 1091 x 
* SWITCH SETTING * 
* LANGUAGE 5 4 3 2 1- * 
* an ee ee eee eee * 
x ENGLISH UsSe 0 0 0 0°80 ® 
* ~AUSTRIAN/GERMAN OO? OF OO. Pal x 
x AUSTRIAN/GERMAN ALTERNATE Oo 0 0 1 0 % 
x DANISH/NORWEGIAN | 0 0 0 1 1 rK 
x DANISH/NORWEGIAN ALTERNATE 0 ©. 1 ©° 0 x 
* FINNISH/SWEDISH. - O 20° 2. 0 7 
x FINNISH/SWEDISH ALTERNATE oO 0 1 1 +0 
* FRENCH oO oO 11 1 
xk ITALIAN O 1 0 0 0 
* PORTUGUESE ALTERNATE "Os “E30 oO, at 
* SPANISH | Oo 1 0 1 0 
ae ENGLISHs Usk. oO 10121 
* BELGIAN OO lit 0 0 
os -INTERNATIONAL Ord’ ar OG: A 
* JAPANESE/ENGLISH ie Or Aloe es Flee “a0 a 
x CANADIAN/FRENCH © Oe daa oe bee 
* BRAZILIAN. tO (Or OF 05, 
x CANADIAN BILINGUAL Ly 0: 0 -0 2 
bg : > 
OIG RC II dea era eo a aa ga ak ake ae oe ake oi ak ok HEBCECECOSH DCCC CGR Ra IRI 
CVTEBC PSHS ) | | | 
CMPA #$3F CONTROL CODE? 
BHI 1$ | -NO, PROCESS CHARACTER 
ae LDA —- #$60 -YESs LOAD UP "=" FOR UNDEFINED 
1% ~SUBA #%40 ~ FOLD TABLE (RUNS FROM 00-->BF) 
ee “LDX TRNSTR | START OF CORRECT TRANS TABLE 
“2 SSR ADDAX GET ADDRESS OF CHARACTER © 
“> LDA 3X GET DBC CONVERSION CHARACTER | 
PULS ..  XKePC Pe gs | | e 9 
ADDAX PSHS BW 
PASS 97 Bs ae 


ISIFP. CRO809/11 version 10.3620 — -BeMar-84 8249256 _ Page 38-1 
TYPE A RS=232 PROGRAM ISIFP.SRC : | | a er re 


E98D 39 | | © *.92060.4 © 4 “RTS. ADDITION OF A TO X COMPLETE. 


E98E 
E991 


E993 


E995. 


E996 
E998 
E999 
E99A 


E99C. 


E99E 
E9AO 


E9A3 


E9A6 
E9A8 


EQAA 
EQAC 


E9AD 
EQBO 
E9B3 


E9B5 ~ 


EQB7 


BD 
30 
ae 


39 


34 
“hE 


4C 


— 626 


35 


34 


BD 


BD. 


iS , 


“BAe 


26 


39 


BD 


BD 


ee 
26 


E996 


F9 


O02 


FD. 
82 


E996 


F4CC 


FO6 


 ISIFP CR6809/11 version 10.36.20 
TYPE A RS-232 PROGRAM  ISIFP.SRC_ 
2062 
2063 
2064 
2065 © 
2066 


2067 
2068 


2069 
2070 


(2072 
2073 


2074 
2075 
2076 


2077 


2079 


2080 


2081 


2082 
2083 
2084 


2085 


2087 
2088 
2089 


2090 
2091 


~~ 2092 


ok 
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| Page 39 


ROC OR to si ick doioiuiok duick ok ick goioick 


EK EK 3K 


DLY2MS - 


13 


YTIMER | 


JSR 


LEAX | 


BNE 


RTS 


PSHS 
CLRA 
INCA 
BNE 

PULS 


PSHS 


JSR 


JSR 


PULS 


“LEAY 
BNE 


RTS | 


YTIMR2. 


JSR 


JSR 
LEAY 


BNE 
RTS 


DLY2MS 
—15X 


XTIMER 


1S 


AsPC 


Y 


DLY2MS 


SWTCH 
Y 


——~1LeY 
YTIMER 


DLY2MS 
HLOTST 


—-~1,Y 


MISC. TIMING ROUTINES 


ROSCOE GIG GIGGISI GR sokolokak ick a kick 
XTIMER | | 


 DLY2MS DOES A 25 MILLISECOND DELAY 
a ee 


CHECK TO SEE IF HLDPRNT HAS BEEN PRESSED 


YTIMR2 


ISIFP , | 
TYPE A RS=232 PROGRAM 


E9BB 


~ESBA 


E9BD > 


EQBF 


O02 


EQCA 


82 


2099 
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 ISTIFP.SRC 


2094 — 


2095 


2096 | 


2097 
2098 


2100 
2101 


2102 


2103 


2104 


ee 


Ler eree ae 


aed + 


Sere TET err eer tr ere eter t etter Tee eT TTT Te eT TTT 


3 4 


+ tH % 


DEVTST 


"DEVTST® 


GEICO I Iai gala ia ik a ack ito doi ak i ak a 
-PSHS 
ISR 
 ANDA 


PULS 


LOOKS FOR DEVICE READY 
EXIT: Da READY ~ 
| Z = 0 NOT READY. 
FOSSA SIGIR IR AR gi aR aac ede 
DVSTSA GET STATUS 
#SO0F 


AePC 
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E9C1 


E9C3 


E9C6 


E9C8 


ESCA 
E9CC | 
EOCF 
E9D2 


E9D5 


E9D7 


—EQDA | 


TYPE A RS=232 PROGRAM 


, 02 


ESCA 


—6B2 


14 


F4CC 


4800 
~EA30 


40 - 


4COl 
‘EA27: 


2106. 
2107. 


2108 
2109 
2110 
2111 
2112 


2113 
2114 
- 2115 


2116 


aa es 
2118. 
eLlg 


2120 
2121 


2122 


2123 


2124 


2L¢9 


(2126 


2127 
2128 
2129 


2130 
ee oe 
2132 —— 
21.3.3. 


2135 


2136 
2137 


2138 
2139 
2140. — 
22141 


2142 
2143 


(2144 


2145 


2146 


2147 
2148 


2149 _— 
2150. 
‘2st 


5-Mar-84 


He dt ae He 4 


 * 


EATER Ea: E 


(NONE) 


Peter ere Seer seer tree ee eee ese eer eer e ee eer eee errr ere Tee eT Tree 


x "DVSTSAt GETS THE RS-232 STATUS AND FORMATS IT 
. _ AS FOLLOWS « —-. 
x 
DEVICE LOGICAL | BIT 
HOLD PRINT | ee HOLD 3 
DCD . BUSY 2 
i CTS 3 
* XMT REG EMPTY* 
* XFLAG © 
x , | | . 
x ---- FAULT | | 1 
x | 
om ---- PAPER EMPTY | 0 
: . 
Ok 
sc 
* | 7 | 
mK EXIT: | ACCA STATUS 
ok | - OTHERS NOT MODIFIED 
FEA ACO AK 2 HE OE IE OK 2K ae a ac 2K aie Ae ae ae ae OK eae PE AEE 2 AK SR Rak aie A ag 2c A a aC a a 2 ok a ea aK ak 3 
DVSTSB PSHS A. 7 | 
| JSR DVSTSA 
TFR © AsB 
~PULS AsPC. 
DVSTSA PSHS X9B | Se, | —7 | 
| JSR HLDTST TURN ON HOLD LED IF HOLD PRINT PRESSED 
LOX — #RDSTAT 
JSR: RDSTSA READ & DEBOUNCE TOP BOARD sop. BIT 
ANDA #SOP — “ CLEAR LOGICAL STATUS 
LDX  #ACIARS See ee om Ae 
ISR: RDS TOE: READ & DEBOUNCE STATUS 
| a | “ 
* CHECK CONDITIONS 
Xe (NONE) 
Kk x on 
* PAPER EMPTY CONDITIONS 
. oy Boggs ,  e 


ISIFP 


TYPE A RS-232 PROGRAM 


ESEL 


CR6809/11 version 10.36.20 


EQDD - 
EQDF 


—E9E3 


E9E5 


E9E7 


‘E9FE 


/ EAO3 


E9E9 


E9SEB 


E9SED 
EQEF 


E9F1 


E9F4 


EQF7. 


EQFA 
E9SFC 


EAOO 


~EAO6 


EAO8 


EAOA 
-EAOD- 
EA1O. 


EAL2 


C5. 
26 
C5 
26 


C5 


oft 


C5 
2 


C5 


Fo 
fE 


FO 


ar: 


C6 


ae 6 =e 


Cl 
26 
TF 
—F6 
aa 


BA 


20 


31 


40 
2D 


10, 
29 


08 


20. 


O7 


06 


4COO~ 
EAOA 


4C00 
08 
Ol 
1566 
EAOD 


ll 


03 


1566 ~ 


1566 
02 


04... 


ISIFP.SRC | 


2157 


2158 - 
2159. 
2160 
2161 
2162 


2163 
2164 
2165 
2166 


2167 


2168 
2169 
2170 


lea 


2172 


2173 


2174 


2175 


2176 


2177. 
2178 
2179. 
2180 
2181 
2182 
2183. 


2184 


2185. 
2186 
2187 

2188 
(2189 


2153 

2154 

2155 
2156 
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x 


x 


20% 


30$ 


50% 


603 


70% 


BITB 


BNE 


BITB 
BNE 


BITB 


BEG 


BITB 
BEQ 


BITB 


BEQ 
LDB 
JMP 


LOB 
CMP B 
BNE 


LDB 


STB 


JMP 


CMPB 
BNE 


CLR 
LDB 


-BEQ. 


DORA 


“& BUSY CONDITIONS 


_ #DCDBT 
70% 


-#DSRBT 
703° 


#TDREBT 


703, 


#RDREBT 
603 


ACIADT 
50% 


ACIADT 
#XOFF 


303 


FOL. 


XELAG 
603. 


# XON 
60% 
XFLAG 


XFLAG. - 
8045 


FBSYBIT 


#(PERRBT!+FERRBT!+OVRNBT) 
203 . | 


DCD LINE OK ? 


=NO». INDICATE BUSY 


-~YESs CTS LINE OK ? 


-=-NO». INDICATE BUSY 


-~YESs XMIT DATA REG. EMPTY ? 
~NOx INDICATE BUSY 


RECEIVED A CHARe ? 
-NO CHECK XFLAG ~ 


“YES, ANY ERRORS ? 


“YES» READ DATA REG. 


~*NOs READ CHAR. 
CHAR. = XOFF ? 


“YES, SET XFLAG. 


“=NOs CHAR«s = XON ? 
=NOy OTHER CHARS« HAVE NO EFFECT 


“YESs CLEAR. XFLAG 
MPLAG SET pi* -* = 
-NO CHECK HOLD 


-YES, INDICATE BUSY 


EAL4 
—-EAL6 
EA18 


EALA 


BALGe 


EALE 


EA2O 


EA22 . 
EA25 


EA27 
~EA29 


EA2C" 
pe 


EA30. 
EA32. 


—-EA34 


EA36 
—EA38 


| EA3A 


D6 


26 


BA 


27 


84 


35 


A6 


. 26 


Al 
26 


39 


58 
OB 
08 
05_ 
Fo. 
F4F2 
94 


Oe 
—EA30 


82 


84 


FA 


84 


F6 
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2191 
2192 


2193 
2194— 
2195 — 
(2196 
2197 


2198 
2199 
2200 
2201 


2202 
2203 


2204 


2206 


2207 


2208 
2209 
2210 


2211 


2212 


— 2213 


2215 


2216 
ae | 


2218 
2219 


2220 
2221 
2222 
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eo a e 
* HOLD CONDITIONS 
ok a ‘o . 4 
— 80S LDB — ~LEDREG HOLD PRINT BEEN PRESSED ? 
BITB #!N(HLOLED) oR | | 
BNE . STSRTN -NO»s DONE 
ORA #HLDBIT -~YESs SET HOLD 
TST OVRELG HOLD/PE OVERIDE SET 2? 
BEQ = STSRTN -NOy RETURN STATUS AS IS. | 
—ANDA |. #!NCHLOBIT!+PEBIT) — -~YESs DON'T RETURN HOLD OR PE 
JSR HITST - FINISH DEBOUNCING SWITHCES 
BeXoPC RETURN | 


STSRTN PULLS 


BCEICICICIIG CCCI GIGI IG OIC ICC GG a iG i gC a kick ica ak kei a 4 
* 


"RDSTSA' READS & DEBOUNCES (3 READS) THE MEMORY 
i | LOCATION POINTED TO BY THE X REG. 
af ac ofc aig ake afc aie ok fe ake fe ak of ak ak ak ake ake ake ok ke af ale ake ake ak oe akc ok ft ake cafe of ake ai afc ok of oie ake 2k ake ac ak oie af ake ae ak oie ok ok ok ak ak ak ok ote akc oe ak ok ac a 
RDSTSB PSHS A | 
| JSR RDSTSA 
TFR AsB 
PULLS” AsPC 
RDSTSA LDA ~— O09X 1ST READ © | 
| CMPA OsX 2ND SAME AS 1ST ? 
BNE RDSTSA -NOs START OVER 
CMPA = O9X | —~YESs 3RD SAME AS LST ? 
-NOs START OVER 


BNE RDSTSA 


RTS 2 YES» DONE 


ISIFP. 


EA3B 


-EA3E 


—EA42 


EA45 
EA47 
EA49 


EA4B 
EA4E 
EA51 
EA52 


—EA54 © 


EA56 


—EA58— 


EA5A 


EA5C 


EA5F 


EA61 


EA64 


8E 


108E F6D3 
FIlE6 © 


BD 


AG 


81 


26 


BD: 


BD 
39 
81 
26 


86 


20 


AG 


BD 


26 


BD 
20 


DFOO 


80 
Fe 
O07 


F1E6 


F2E6 
FF 
04 


O03 
O02 . 


A6 
E9B8 
FB 


F20D. 


DF 


CR6O809/11 version 10.3620 
TYPE A RS-232 PROGRAM  ISIFP.SRC 
“2004 
2225 
2226 


2227 


2228 


2229 


2230 
-2231 


2232 
2233 
2234 
2235 


2236 


2237 


2238 


2239 
2240 
2241 
2242 
2243 
2244 


2245° 


2246 


a an 


2248 


2249. 
2250 


VRSION: 


5S 


10% 


208 
308 
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“GEESE GIGS GIO OGG GO Ra aGIG I 
* 


'VRSION' PRINTS THE CONFIGUATION | 


LDX 


LDY 


JSR 


LDA 


CMPA 
BNE - 


JSR 


JSR 


RTS 


—CMPA 


BNE 


LDA 
BRA 


LDA 


JSR 
~ BNE 


JSR 


BRA 


— #ASCIIO 
_ #ASCDBC 


EOL 


Xt = 
#SFE | 


103 


EOL. 


EMTYBE 


HOFF 
205 


#03 
305 


AsY 
DEVTST 
303 


OUTCHR 


5% 





GAS EICIGIIG IG OI GI i ik ii ak gc a ke akeake ak aca ake ak akc ak 


POINT X TO CONFIGUATION TABLE 
POINT Y TO ASCII TO DeBeC TABLE 
CRLF a. 


DONE ALL LINES ? 


YESs = CRoLF 


EMPTY OUTPUT BUFFER 
& RETURN | 
-NOs END OF LINE ?. 


-~YESs LOAD DeBeC NL 


: CONVERT. ASCIT TO: DsBicx 


WAIT FOR DEVICE READY 


OUTPUT CHAR. 
& LOOP 


-TSIFP.”. 


EA66 
EA69 


EA6C 


EA6F 


EARL 


EA/1 


EA74 


EA7? 
EA79 
EA/C 
EA?F 


F1E6 
FOA4 


ECID | 


143D 


ECAC 


F6A8 
ECED 


Pigé 


CR6809/11 version 10. 26:3 20 
TYPE. A RS- 232 PROGRAM 


-ISIFP «SRC. 


2252 


2253 


2254 
2255 
2256 


2257 
2258 


2259 
2260 


2261 
2262 


2263 


2264 
2265 


2266 


- SoMar-84 


rete erste rete ieee tee eee eee eee ee eee ee 


* "ERRPRT' PRINTS THE CONTENTS OF THE ERRCOD BYTE © eo 


en 


Page 45 


Me AE aK KE OK 2K FERRER HECHT IEE ETI EEE Ta ASIA AA IAA 


ERRPRT ISR 


LDX 


JSR. 
BOS 3 


LDX 
JSR 


BCS. 
LDX . 
JSR- 


BCS 
13 JMP 


ee Ob, 


FMESSGO 
PMSG 
1S 


#ERRCOD PRINT ERROR CODE BYTE 
 QUT4HS | 
1s ; 


#MESG1 

PMSG 

13 xe oo eg _ 

FOL. == RETURN TO TEST SWITCH ROUTINE 


ISIFP  CR6809/11 version 10.36.20 | 5=Mar—84 8:49:56 Page 46. 


TYPE A RS-232 PROGRAM  ISIFP.SRC 


2268 REGGIO CISC CICS ICICI CIOS IG IGG IO a oii kick 


RTS 


2269 »* "HEXDMP* - 132 COLUMN PRINTERS - | 
2270 x PRINTS THE CONTENTS OF THE RAM IN ¥* 
2271 = * | a HEXs 16 BYTES WIDE, WITH A SPACE — * 
2272 * | BETWEEN EACH BYTE'S CODE. mk 
2273 eS 12 PITCHs 8 LPI TO FIT ALL PAPER ¥ 
2274 3K OK 3K ROK Ca ROKK a 3 BA BE AES 3 RE I 2 2 AE a AK 2 SK AR KR tk i Re a ee a a 
| 2275 | | , 
EA84 34 40 2276 HEXDMP | PSHS Us 2 SAVE ALL REGISTERS AT TIME OF HEXDUMP 
EA86 CE 1585 2277 LDU HDMPSAV4+12 SO THAT THEY ARE JUMPED ALSO | | 
EA89 36 FF 2278 | PSHU PCsSsVsXsDP9BoA9CC | 
—EA8B 35 40 2279 PULS U 
EA8D FF 1585 2280 STU DMP SAV412 
7 | - 2281 - 
EA90 7C 1578 2282 INC ~ DMPFLG 
EA93. BD EOC1 2283 JSR GETSW GET TST SWITCH VALUE 
EA96 D7? 42 2284 STB. HEXSAV. INITIALIZE SWITCH SAVE FOR ABORT 
EA98 86 FE 2285 LDA #RDYLED TURN READY LED OFF 
EAQA BD F3DF 2286 JSR LEDGFF 
| 2287 | 
2288 * ** DUMP BUFFER ** 
| 2289 | | | 
-EA9D BE 1564 2290 LDX BUFPT3 
EAAO 96 37 2291 LDA DULCAS | | 
EAA2 34 12. 2292 PSHS_ XA SAVE GLOBALS THAT HEXDUMP MUST USE 
EAA4 9 OF 37 | 2293 CLR DULCAS ALWAYS DUMP L_TO_R 
EAA6 BD EA3B 2294 JSR VRSION 
~EAA9 BD EA66 2295 JSR- ERRPRT | = ly 
EAAC BD EBOF 2296 JSR HEXHE AD | PRINT HEX DUMP HEADING 
— & | 2297 aA ee 
EAAF 8E 1000 2298 -LDX #31000. ALWAYS DUMP 4K BUFFER 
EAB2 OF 4F - 2299 ~STX ~~.  ENDMP | | : 3 | | 
EAB4  8E 0000 2300 LDX. #0000 | 
EAB7 BD EAD3 2301 JSR. :DUMP > 
| ee GF coor —. . | 
2303 * ¥** DUMP STACK AND SCRATCHPAD ¥** 
Pee 2304 a ee oe) ae 
EABA  8E 1800 2305 LDX. #(STACK+1). 
EABD  9F 4F | 2306 STxK. ENDMP 
EABF 8E 1400 | 2307... LDX: #SCRTCH 
EAC2 BD EAD3 2308 | JSR DUMP — 
—EACS BD F2E6 2309 — JSR sEMTYBF GET LAST LINE OUT 
| 23108 +*: ee san ae alae 
EAC8 7F 1578 2311.3. : -GLR: —DMPFLG FLAG "NO LINGER DUMPING” 
EACB 35 12. 2312 PULS oer Ask, fe 
HE ACD is. BR bo 6e, 2313 ~ SAMS GEBYUFPTS. ; i _ ee | 
~ EADO 97 37 — 2314 STA. DULCAS. RESTORE GLOBALS | 
EAD? ss BO - — 2315 ae : | eo 


EAD3 ~ 
EADS» 


EADS 


EADA 


EADD 


EADF 
EAE2 


EAES| 


EAE? 
EAEA - 


EAEC 
EAEE . 


EAFO 
EAF3 

EAF5 
EAF8 
EAFA 
EAED 
EAFF 


EBO2. 


EBO5 


ERO? 
—EBOA 


EBOD 


EBOF 


~~ EBL2 


EBLS 


— EBL7T 
EBLA 


EBLD 
EB20 
EB22 
EB25 


~ EB28 


EB2B 
~EB2D 


EB30 


 -EB33 


 -EB36 


34 


BD 
2¢ 


BD 


26 


~ BD 
BD. 


vam 


BD 


et, 


10 


-EB4D 


OD 


F1LE6 


EB37. 


26 


FOAA 
ECOD 


E56A 


FOAF 
EC1D 


LE 


E56A 


: FOB? 


EC24 


EB37 
"33 


ES6A . 
FOB3.. 
ECI1D 


- -TSIFP CR6809/11 version 1036.20 _ 
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2317 


2318 


2319 


2320 


2321 
2322. 


2323 


2324 
2325 « 


2326 


2327 
2328 


2329 
2330 
2331 


2332 


2333 
2334 
2335 


2336 


2337 


2338 
2339 
2340. 


2341 


2342 


2343 
2344 


—62345) 


2347 
2348 
— 2349 
2350 


2351 


so30e2 


2353 
2354 


2355 
2356 
2357. 

2358 
2359 

2360 | 

2361 


DUMP 


13 


DMPLIN 


DONE 


HEXHEAD 
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-PSHS 
JSR 
BEQ 


JSR 
BNE 


JSR 
JSR 
BEQ 


JSR 
BEQ 


STX 


TFR | 


JSR 
LDX. 


JSR 
~LDX 


JSR 
LDX 
JSR 


JSR 
~LDX 


LEAX 


IMP 


PULS 


LDX 


JSR 


LDB 


JSR 


LDX. 
JSR 


—LDB 
gSRe4 
LL DX: 


JSR 


LDB 
JSR 


LDX 


MSR 
RTS 


x 


DMPCHK 


DONE 


NULSCN 


~DMPLIN 


EOL 
DMP CHK 
DONE 


NULSCN 
1s | 


3S 


S6X 


OUT4HS 


oo, 4S 
HEXLIN 


#MESG2 


PNLMSG | 
(#23 

SPACES 
#MESG3 


PMSG 


1 #3050" 
SPACES. 


#MESG4 


PMSG 


#14 


SPACES 
—#MESGS © 
— PMSGNL | 


xX POINTS TO LINE TO DUMP 


CONTINUE DUMPING? 
-NOs DONE . 


LINE ALL NULLS? 
-NOg PRINT IT. 


~YESs LEAVE A BLANK LINE AND CHECK THE NEXT LINE 


SUPPRESS ALL NULL LINES” : 


UPDATE POINTER TO LINE TO BE PRINTED 


PRINT ADDRESS OF LINE TO BE PRINTED. 


PRINT IN HEX 


PRINT IN DBC 


PRINT IN EBCDIC 


MOVE POINTER TO NEXT LINE 
AND START OVER ~ Pe, 


JADDR/ 


JHEX/ 


/LU3/— 


EB37 
EB3A 
EB3C 


EB3E 


EB40 | 


EB42 


EB45 


EB47 


EB49 


EB4A 


. EB4C 


EB 4D 


EB4F 
EB51 


EB53. 


EB55 


EB56 


EB58 
EB5A 


EB5B_ 


EB5D 
EB60 
 EB62 

EB64 
EB66 


ERED. 
EBOB | 


BD 


26 
9C 
24 
7D 
2¢ 
LC 
39 
LA 
39 


34 
C6 
6D 


26 


DA 
26 


32 
39 


35 


EOC1 
42 
OC 


4 
08 


1578 


O03 


04. 


04 


10 


890 


06 | 


po. 


62 


90. 
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2363 
2364 


2365 
2366 


2367 
_ 2368 


2369 
2370 


2371 


237%2 
23/3 
2374 
2375 
2376 
2307 


2579 


2380 


2381 


2382 
2383 


(2384 
2385 


2386 
2387 
2388 


2389 
2390 


2392 
2393 


(2394 
2395 


2396 


2397 
2398. 


— 2S 
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DMPCHK 


JSR 


CMPB 


BNE 


CMPX 
BHS 


TST 


 ~BEQ 


«1s 


NUL SCN 


13 


ANDCC 


RTS 


ORCC 
RTS 


PSHS 
-LDB 


TST 


~ BNE 


DECB 


BNE 


LEAS © 


RTS” 


~LU3CHR 
ee 


» DS: 


PULS 


BCC... 
BNE . 
LDA 
SMP 
LDA” 
RTS 
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GETSW 7 | 
HEXSAV. ROTARY SWITCH CHANGED? 
1$ -YESs ABORT HEXDUMP 


—ENDMP 
ae 


ALL LINES DUMPED? 


—YESs ABORT HEXDUMP 
DMPELG CANCEL ACTUATED? 
1$ ~YESs ABORT HEXDUMP 
#ZBIT CONTINUE DUMPING 
#ZBIT TERMINATE DUMP 
ae 
#16- i | 
9 Xt NULL?) 
2% -NO s DONE 
16 CONSEQUTIVE NULLS? 
is “NOs KEEP TESTING | 
aos —=YESs X POINTS TO NEXT LINE © 
X9PC X POINTS TO BEGINNING OF LINE 
TSTCHR GET A CHARACTER 
5$ PRINTABLE CHARACTER 
3$ CONTROL CHARACTER. | 
HSPDBC NULL BECOMES A SPACE 
5S) oe a a 2 
#DBCAST PRINT AS STAR | 


EB6C 
 EB6E 
 EBOF 

EB71 
EB73 


 EB?/6 


EB78 


EBTA | 
EB7C 
EBTF 


EB80 


EB82 
EB85 
EB86 


EBB 
EBSB 


EBS8C 


~ EBBE 


—EB9L 
EB94 
EBSS5 


EB97 


EB98. 


EBOB 


~EB9SD 
EBAO | 
EBA3. 
EBA4 
EBA6 
EBAQ 


C6 


BD 


5A 
26 
BD 
39 


80 


LO. 
EC31 


FA 


F1F5 


. 10 
EB6C | 
~F20D. 


F7 


1564 


EB5D 
F200 


oy, 


FLFS. 


-ISIFP = CR6809/11 version 10.36.20 
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2400 
— 2401 
2402 
2403 
2404 
2405 
2406 
2407 


2408 


2409 
2410 


2411 


2412 
2413 


2414 


(2415 
2416. 
2417 
248 


2420 
2421 
2422 
2423 
2424 
2425 


2426 


2428. 
2429 


2430 


2431 
24320 
2433 
— 2434 
(2435, 


2436 


LULCHR 
6$ 
7% 


HEXLIN. 
1% 


LULLIN 
13 


LUBLIN 


1$ 


LDA 


BNE. 
LDA 
JMP 
CMPA 
BHI 
LDA 
JSR 
RTS 


LDB 
JSR 
DECB 
BNE - 


JSR 
RTS 


LDB 
JSR 
JSR 


~DECB 


BNE 


RTS 


~—STX 


LDB 


JSR 


JSR 


DECB 


BNE 


JSR 


RTS— 
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TSTA 


, 
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O9X+ GET A CHARACTER 
NULL ? | 
6$  —-=NO 
#SPEBC. -YES PRINT A SPACE 
74 
#S3F CONTROL CHAR. ?_ 
-7$  — =NOy PRINT IT . 
—#EBCAST -YES»s PRINT A STAR 
CVTEBC TRANSLATE IT | 
#16 | | 
OUTZ2HS PRINT BYTE IN HEX 
‘1S 16 TIMES 
PSPAC ADD A SPACE 
#160 | | 
LULCHR PRINT BYTE AS EBCDIC 
‘QUTCHR Pao | a | 
— tae 16 TIMES © 
1$ | | 
BUFPT3_ 
#1600 | _ : | 
 LUBCHR PRINT BYTES AS DBC 
QUTCHR | ae ae 
Le ga 16 TIMES 
oe 
PSPAC ADD A SPACE 


EBAA 


EBAD 
EBBO 
EBB3 
EBB5 

EBB8 


 EBBA 


EBBD 
EBCO. 


EBC3 


EBC6 


EBC9 


EBCB 


EBCD 


EBDO 


 EBD2 
EBDS5 


EBD7,. 
EBDA. 
EBDD 


-EBEO | 


(ERE: 
-EBES 


EBE6 
EBES 
EBEB 
EBED 


EBFO © 
EBF2 ~ 
EB PO: . 


EBF7 


EBF9- 
EBFB 


 EBFD 


 EBFF 
-ECO2 
ECO4 | 
ECO5 | 
-ECO7 
ECO9 
 “ECOA: | Lz 


F1LE6 


F6BB. 


EC1D 
2B 


EBE3 
09 | 


F6C3 
-ECLID . 


EBEO 


FOCA 
EC1D 
15 


41 
EC2C 
OF 


EC31 
09 


EC39 
F6A8 


EGLO: 3: 


.FLE6 


ISIFP  CR6809/11 version 10.36.20. 
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2439. 
2440 


2441 


2442. 
2443 
— 2444 


2445 
2446 


2447 


2448 
2449 


2450 
2451. 


2452 


(2453 


2454 
2455 


2456 
2457 © 
~—2458 


2459 
2460 


2461 


2462 


2463. 
(2464 
2465 — 
2466 
2467 
2468 


2469 


2470 


2471 
2472 


2473. 


2474 
2475 


_ 2476 — 
a 
2478 


2479 


2480 


2481 


-MEMTST 


-1$ 


ma. eee 


Fd 


TSTMEM 


1S 


2 


3g. 


2482 


2483 
2484 
2485 


2486 


2487 | 
2488 
2489. 
2490 


4s 


JSR 
~LDX 


JSR 
BCS 


JSR 


BNE 


-LDX 


JSR 


JMP 


LDX | 


JSR 


- BCS 


~TFR- 


JSR 
BCS 


JSR 


BCS 


JSR 


-LDX 


JSR 


JMP 
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EOL 
#MESG9 
—PMSG 
4b 


TSTMEM 
1$ 


PMSG 
4% 


SoX 
OUT4HS 


4% 


Page 47) 
PRINT "MEMORY TESTS" 


TEST THE MEMORY, IS IT OK? 


#MESG10 -YES, PRINT "OK" 


#MESG11 -NOy PRINT "BAD AT" 
— PMSG _ 2 | 
4S 


‘PRINT BAD ADDRESS 


QOUT2HS 


4% 


OUT2H 


#MESG1 


PMSG 


EOL 


DO END OF LINE FUNCTION 


TEST AND CLEAR MEMORY. 


LDA 
COMA 


LDX 
STA 
LEAX 


~CMPX 


BNE 
LDX 
LDB.. 


~PSHS 
—CMPA 
BNE 
LEAX 
CMPX 


BNE. 


TSTB 


BMI. 
LDA 


—TSTB. 
BNE 
RTS 


#30050 


OX 
l»X 


24 


0X 


B 


#BUFEND-1. 


—#$0050 


9St 


4S 


1X 


#BUFE 


34 


1% 


a eS 


NO-1 


HSER 
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82:49:56 
TYPE A RS=232 PROGRAM  ISIFP.SRC er 


~— 2492 merrrrer rer rrr TT kkk ak kok ak kek dea de ok UOCH ORTON EO HCH HCE AREER IEEE 


2493. * "PMSG" PRINTS A MESSAGE THAT IS POINTED TO BY THE X REG. 
— 2494 * THE MESSAGE MUST END IN $FFe PMSG HAS TWO SPECIAL ENTRY POINTS # 
2495 * THAT ALLOW EITHER : x 
2496 * 1. NEW LINEs MESSAGE -PNLMSG- | * 
2497 .* | 2e MESSAGEs NEW LINE —PMSGNL— | aK 
2498 * IF THE NORMAL "PMSG" ENTRY IS USEDs NO NEW LINE CONTROL * 
2499 x CHARACTERS WILL BE INSERTED AT THE BEGINNING OR END OF THE * 
2500 a MESSAGEs AND IT WILL APPEAR AT THE CURRENT PRINT POSITION. * 
2501 OE CAE OK FER CCGECCIG ICICI IIIB CICERO GRICE Ia i ick a i i ik ii icieak i tok ia 
os 2502. 7 
ECOD BD F1lE6 2503 PNLMSG. JSR EOL NEW LINE; MESSAGE ENTRY POINT 
EC10 .. 25 11 2504 BCS PRTN ERROR RETURN 
—EC12 7E ECLD 2505 JMP PMSG 
| a 2506 - a A, | - 
EC15 BD E973 2507 PMSG1 JSR CVTEBC CONVERT TO PRINTER CODE 
€C18 BD F20D 2508 JSR OUTCHR SEND TO PRINTER | 
* JECLB.. °25°106 2509 BCS PRTN | ae 
EC1D . Ao 80. 2510 £PMSG LDA OsX+ GET NEXT CHAR. 
EC1F: 81 FF 2511 CMPA HOFF END OF MESSAGE? 
~EC21 26 F2 2512 BNE PMSG1 = =NOs PRINT THE CHAR«. 
EC23 39 2513 PRTN RTS” | 
, : 2514 on : : = 
EC24 BD EC1D 2515 PMSGNL JSR PMSG MESSAGEs NEW LINE ENTRY POINT 
EC27 25 FA | 2516 BCS. -PRTN ERROR RETURN. 
EC29 7E FlE6 2512 ~ MP EOL : 
| 2518 
2519 9 Rx PRINTS 2 BYTES IN HEX AND A “SPACE. 
2520 | 
 EC2C BD EC39 2521 OUT4HS JSR “QUTZH. 
 EC2F 25 F2. 2522. BCS PRTN | 
| 2523 | be. ar | , | 
(2524 se a PRINTS 1 ‘BYTE IN HEX AND A SPACE 
| | e525 ) 
EC31 BD EC39 2526 OUT2HS” JSR: DUT2H 
EC34 25 ED 2527 - BCS PRTN 
EC36  7E F1F5 . 2528 JMP PSPAC 
: | 2529. : 
2530 ex PRINTS 5 BYTE IN HEX 
age | P31 Beds | } ee 
EC39 Ao 84 2532 OUT2H LDA 09x e 2M 
EC3B BD EC45 2533. JSR OUTHL. 
EC3E 25 E3 2534 BCS - “PRIN & 
EC40 A6 80 — 2535 LDA O9X+. 
EC42 7E EC49 2536 JMP OUTHR | 
by ae | a 7 rn, | | 
EC45 44. 2538  OUTHL LSRA- 
EC46 44. DOBQ. 2 © te o ESRA 
EC47. 44 “25 40. me ere eS es 
~~ EC48 44 Kies Ee OR 
o EC49-o: B4 0F 0 pee 2543.0 2000 THRO ANDAL  ESOR 


EC4B 
EC4D 


EC4E 


EC53 


EC55 


ISIFP  CR6809/11 version 10436420 


8B 20 BAG 
81 29 — es & geet 


102F 058A — — 2546 
© siete he, “2oae 
8B 76 2548 


7E F20D 2549 





. ADDA 


CMPA 
LBLE 


ADDA 


JMP 


5—Mar-84 8:49:56. 


#%20 


#329 
QOUTCHR 


#%76 


Page 48-1 


OUTCHR ~ 


—ISIFP 


EC58 


EC5B 


EC5D 


EC5F 
EC61. 


EC63 


EC66 


EC68 


ECOA 


-EC6C 


EC6E 


£C70 


EC72 
EC 74 


—EC76 


EC78 


EC7A 


EC7C. 


EC7E 
EC80 


EC82 


EC 8F. 


ro SECQS 
ECO? 
—ECIA 
‘ge "ECOC 
— ECOF | 


EC84 


ECB6 


EC88 
EC8B 


EC8D 
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18 
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FE 
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2574 | 
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2583 


2584 


2585 
2586 


2587 


2588 
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“D506: +: 
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* JAG SSIGSIS IS IS IGG IGOR RIOR I RAGE 


Ox 


* ss SET LINE DENSITY ROUTINE 
SLDSUB JSR. —s«GTCHRA. GET COUNT FIELD 
CMPA #301 | COUNT=1? — 
| BEQ § SLD6 ~ YES, SET LPI=6 
e = NOx CONTINUE 
CMPA #$O2 - COUNT=2? 
BNE SCSERR - NO» ERROR. 
JSR GTCHRA -YES, GET DISTANCE BYTE: 
CMPA #$0 DISTANCE=0/_ 
BEQ SLD6 - YES, SET LPI=6 
CMPA #30C DISTANCE=$0C? 
BEQ SLD6 ~ YESs LPI=6 
CMPA #$0O9 DISTANCE=$09? 
BNE 123 -~ NOs CHECK FOR 4 LPI 
LOB #308 -YES, OUTPUT 8 LPI DEVICE SEQ. 
BRA SLOCHK ; | 
45% CMPA #$12 | DISTANCE=$12? 
| BNE 183 = NOs CHECK FOR 3: LPI 
~LDB- #304 -YES»s OUTPUT 4 LPI DEVICE SEQ. 
BRA SLDCHK ae -_ | | 
183 CMPA = #$:18 DISTANCE=$182 
: BNE -—«-SCSERR 
LDB #303 -YES, OUTPUT 3 LPI DEVICE SEQ. 
BRA “SLDCHK a 
SLD6 ~—s-_LDB #$06 OUTPUT 6 LPI DEVICE SEQ. 
SLDCHK TST CONFIG+1 SLD SUPPORTED: ? 
BNE 103 | _ 7 
ANDCC #!N(CBIT) -NOy CLR CARRY AND RETURN 
BRA --SLDRTS | Pee | 
108 ~~ JSR SLDOUT -YESs OUTPUT SEQUENCE 
SLDRTS RTS. | RETURN. 
or — SCSERR - SUBROUTINE TO SET INPUT CODE BYTE TO REFLECT PARAM. 
“SCSERR LDA «#$02.~=—S«SET “INVALID PARAMETER 
TST SENSE IN INPUT CODE BYTE : 
— LDA = #SDT!+#0C = TURN ON SENSE DATA BYTE | 
JSR SBITON IN STATUS. BYTE..< 0-5 | | 


MP ABOPRT. 
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ECAB. 


ECAD 
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85 


80. 
F080 
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FE 
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ROUTINE TO OUTPUT TABLE SEQUENCES TO 


THE DEVICE FOR SETTING OF LINE DENSITY 


CALL: —&ZNXX (EITHER MODE) 
7 SLD (SCS MODE) | 
OPTION SW. = 8 LPI AT POR. 
ENTRY: ACCA. === » | 
ACCB LINE DENSITY (DECIMAL) 
EXIT: C SET DEVICE DEAD 
) C CLR OK - | 
ae 2k ake de oi oi ake akc ak ae ake ie ake kc ke ofc of oof ak ake ak ak ok 2k ak ac ake ake ak akc ake aie akc ake fe af ake aie ae of ak ak oie ok ok 
PSHS AyX. | | | | 
LDX #SLDTAB POINT TO SLD TABLE. 
LDA 3 X+ : | | 
STA ~—s COUNTR 
LDA Xt . | | | 
JSR DEVOUT OUTPUT FIXED SLD SEQUENCE 
LBCS 6.05 7 | 
DEC . COUNTR 
BNE ue 20S. - 
LDA 9 Xt 
S§STA-  COUNTR 
MUL 
LEAX BsX 
LDA 9g X + oe a | 
JSR © ~~ DEVOUT. OUTPUT VARIABLE SEQUENCE 
BCS «608 | a oe 
DEC | COUNTR © 
~ BNE 308 
ANDCC #IN(CBIT) CLEAR CARRY 


508... | 
603... 


PULS AsXoPC -& RETURN 
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ECCE 


ECDO 


-ECD4-— 
— ECD6 


ECDA 


ECDC | 


“ECEO 


ECE? 


—ECE4. 
ECB? 


ECEA . 


“ECEC 


ECFO 


ECF2 


ECF6 


ECF8 


TeCEG 


—ECFE | 
EDO? © 
ED04 
EDO8~ 
EDOA 
EDOC 


EDOF 
EDI1 


E013 
ED15 
ED18 


ED1B 


EDLE- 


ED22~_ 


ED24 
-ED26 


-ED29 
ED 2B 


— ED2D 
wo ED2ZF 
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81 1 
(1027 O2CA 


81 
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26 
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TE 
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81 a 
1027 0172 
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OA 
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TE 
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1027 02D0 


25 
04 
06 


E74A 
EF59 


oD 
1027 O2A7 
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1027 0276 


05 
L027 0228 


OB 


16 


1027 O2A5 


FLEA 
L025..007C 


3B 
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2645 
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2663 
2604 
2665 
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2671 


2672 
2673 
2674 
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2676 
2677 
2678 
2679 


2680 
2681 
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(2684 
2685. 
2686. 
2687 

2688 
2689 


2690 


2691 | 
2693 
2694 © 
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—CNTRL1- 


TSTCR 


104% 


2 . DEC®. 
BNE 
IMP 


205 


eTSTBEL 


CMP A 
LBEQ) 


 CMPA 


LBEQ 


CMPA 
LBEQ. 


CMP A 


BNE 


JSR 


JMP 


CMPA 
LBEQ 


~CMPA- 
~LBEQ 


CMPA 


LBEQ 


CMPA 
LBEQ 


CMPA 


LBEQ 


CMPA 
BNE 
JSR 
STA 


LDA 


BEQ 


JSR. 
JSR 
JSR E 
BGS 


CMPA 
BNE 
LDA 


... JSR 


ae JMP 


TSTINP | 


CMPA 
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#NLEBCD 
NL1SUB- 


#IRS 


NL1SUB 


#LEEBCD. 
—LFISUB © 


#VCS 
TSTCR 


GTCHRA 
LFISUB 


#CREBCD 
CRISUB- 


#FFEBCD 


FF1SUB 


HHT 
HTSUB 


aT. 
VTSUB 


#BCKSPC 
BKSSUB. 


#TRN 
TSTBEL 


GTCHRA 


TRNCNT 


TRNCNT | 
208 


GTCHRA 


CVTEBC. 


PRINTA 


ALDONI © 


TRNCNT 


10% — 


ALDON2_ 


#BEL 


~ TSTINP 
— HALARM. 


LEDON | 
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NEW LINE CODE? - 
“YES, DO IT | 


IRS CODE? (IRS DEFAULTS TO LUL LINE FEED) 
“YESs DD A LINE FEED 


LINE FEED CODE? 
“YES; DD IT 


VERTICAL CHANNEL SELECT? 
-NOy CONTINUE SCS CONTROL TESTS 


—“YESs SKIP VCS OP CODE 
AND DEFAULT IT TO A LINE FEED 


CARRIAGE RETURN? 
“YESs DO IT 


FORM FEED CODE ? 
“YESs DO IT 


HORIZONTAL TAB CODE ?. 
-YESs DO IT 


VERTICAL TAB CODE? 
~YES, DO IT 


BACK SPACE CODE? 
=YES*@ DU ° D4. 


TRANSPARENT FIELD? | 
-YES, GET COUNT OF FIELD LENGTH 


STORE IN TRANSPARENT COUNTER 
COUNT=0? oe 


=YESs RETURN 


-NO»s GET NEXT CHAR. 


CONVERT AND PRINT 


END OF TRN FIELD? 


-NOs DO NEXT CHAR 
~YESs RETURN. =~ 


BELL “CODE? « 
FOR BELL» RING ALARM CONTINOUSLY TILL HOLD PRINT. 
-ALDGN2 2 a Oe | ere | 


INHIBIT PRESENTATION? 
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81 
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14. 
03 
EDOF 


08 
5B 


28 
09 


E74A 


E74A 
ED9F 
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4A 


4 02 
E74A 


D1 
08 


iGige x 
EDAA 
EDOF 
con 


08 


02 


EEA? 
EDOF. 


Ce 


08 
-EDE7. 
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Of 
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(Ode 
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ED9F 


2695 | 
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a ae 
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TSTSVE 
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2/41 
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BNE 
SMP 


CMPA 


BNE 
JMP 


CMPA 


BEG 


CMPA 


BNE 


JSR 
JSR 
UMP 


CMPA 


BNE 


—PSHS 


JSR 
CMPA 


BNE | 


PULS 
JSR 
JMP 


 CMPA 
BNE 


PULS 


JSR | 


JMP 


CMPA 
BNE 


“SSR 
sme 


-CMPA | 
PULS ~ 
~ BNE * 
ASTRO 
JMP 


—PSHS | 


JSR 
BCC 


PLS 


#SCO 
B 


 TSTENP 
— ALDON2 


—#S14 


TSTGE 
ALDON2 


#308 
HY PHEN 


#528 


TSTMLT 


GTCHRA 


GTCHRA 


ALDON2 


#$2B 


HYPHEN 


A 


#$D1 


~ TSTSHF 
A | 
DIRCTN © 


ALDON2 
#$C1 
TSTS VF 


Ko * « 
SHFS UB 


~ ALDON2 


#$C2 


TSTSLD- 


SVFSUB 
ALDON2 


5% 


 SLDSUB | 
ALDONI © 


A 


HYPHEN 


103° 
ae 


GTCHRA © 
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~YES, IGNORE IT ae 


ENABLE PRESENTATION 2 
“YES, DO NOTHING 


GRAPHIC ESCAPE ? | | 
- =YESs PRINT 'HYPHEN! 


Ser ATIRIauTE 2 
~YESs GET "TYPE! 
HWW ALUE! 
RETURN | 


1ST BYTE OF AN SCS SEQUENCE? : 
“NO 5 eens A HYPHEN FOR UNDEFINED CONTOL CODE 


SAVE "2B" | 
- YES,s GET 2ND BYTE : 
CHANGE DIRECTION SEQUENCE ? 


“=YES» HANDLE IT 


SET HORIZONTAL FORMAT 2? 


—-YES» HANDLE IT 


-NOy SET VERTICAL FORMAT? 


-YESs GO HANDLE IT 


—=NO »SET LINE DENSITY? 


PRINT A nom FOR THE e"zoy 


PRINTER: DEAD. 


 ED96. 
EDOO 
ED9B- 


ED9E 


ED9F 
EDAL 


EDA2 
EDA4 


EDA 


TE 


35 


TC 
39 


1C 
39 
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1574 


FE 
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E973 


FLFA 
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| 8747 
(2748 


2749 


2750 | 
2751 


2752 


2753 
2754 


2756 
rag om | 
2758 


10% 


ALDONI. 


ALDON2 


HYPHEN 


MP 


PULS. 


INC 


ers. 


ANDCC 


RTS 


LDA 


JSR 
JMP 


ALDONL 
A, 3 
- MLTFNC AND RETURN _ 


RES 


AIN(CBIT) 
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TORE NEXT CHAR 


#HHYPEBC -NOs UNDEFINED CODE PRINTS AS A HYPHEN 


CVTEBC 


PRINTA 


EDAA 
EDAC 
EDAF 
EDB2 
EDB3 


EDB5 
EDB? 
EDB9 
EDBB 


EDBD 


EDCO 


EDC2. 


~EDCS 
EDC? 
EDCA 
EDCC 
EDCE 


EDDO 
EDD3 


-EDDS: 


EDD? 


EDD - 
EDDB- 


EDDD 
EDEO | 


SEDES 


EDES 
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2760 | 
2761 
2762 
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2765 
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2769. | 
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2791. 
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2794 
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2797 
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x 


DIRCTN 


 ~BEQ 


10% 


20$. 


308 


40% 


50% 


60$ 


BORO IOI g ak ako kok fea ak ea cake a 
 XeBeA 


PSHS 
CLR 


JSR 


TST 


STA 


CMPA 


BHI 
PSHS 
JMP 


DEC 
JSR 


DEC 
JSR 
PSHS 
DEC 


BEQ 


JSR. 
. DEC .. 
BNE. 
PULS 
CMPA - 
BNE ~ 


INC.” 


LDA 


STA 


-PULS 
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LULDIR 


GTCHRA 


A 


50S. 


COUNTR 
#402 


‘108 


A 


30% 


COUNTR 


GTCHRA 
COUNTR 


GTCHRA 


A ‘i 
COUNTR 


403— 


GTCHRA 


— CDUNTR 
203. 


A 
#358 
50% 


LULDIR 
LULDIR- 
DULCAS 


AsBsXoPC 
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PROCESSES LU1L CONTROL CODES FOR 
SETTING FORWARD OR REVERSE PRINT 


DIRECTION. © _ 3 : 
ME AE 3 OE a C2 ie 2 ae 2 ie 2 ae a ie ae aie ie 2k Ae aie OK aie ai ae ak aie ai ae i a ac ae ok aK aK 


SET PRINT DIRECTION = FORWARD 
— GET COUNT BYTE | 
COUNT = 0 2. 

-YES,s DONE 


-NOy COUNT <= 2 2. 


-NOy EAT UP COUNT # OF BYTES & RETURN 


SAVE DIRECTION BYTE. 


DIRECTION BYTE = REVERSE 2 
—-NOy LEAVE FORWARD 


~YESs CHANGE DIRECTION TO REVERSE 
UPDATE FIRWARD/BACKWARD FLAG 


RETURN 


ISIFP CORINA 0 BAe 53 


os 2850 . 


 SCSERR 


ae TYESs 


CRO809/11- version 10. 36. 30. 
TYPE A RS-232 PROGRAM. ISIFP.SRC. 
2099 eae oe es JACEE CRIS HS CISC IS I ISI ICES GSS HS ECR IG SICH IA ICR 
2800 * THE SUBROUTINES. TO SET AND PERFORM VERTICAL/HORZONTAL FORMATTING * 
2801 * “IN LUL MODE. TABS ARE NOT CUMULATIVE $ IE. NEW TABS ENTERED ERASE * 
2802 * OLD TABS PREVIOUSLY ENTERED. © * 
2803 IEEE SSE SE IE IOC HCGCHOHSIE IONE ION CHG CS ob Kg tok i inhibi lok iio iob ick 
— 2804 
2805. ee eee er re ere er Te 
2806 * SUBROUTINE TO PERFORM THE SVF COMMAND ae 
2807 RICCO IC OGG Gd i ioigoiag ici tak ioiiciotak ik kok 4 goa ak ake ok ok 
| | 2808 | 
EDE7 BD EE54 2809 SVFSUB JSR VIDELT SET DEFAULT VALUES 
EDEA BD E740 2810 | JSR GTCHRB B HAS COUNT a 
EDED 5A  2811~ DECK -IF.COUNT IS 15 DONE 
EDEE 1027 005B — 2812— ~LBEQ 2 7 | | 
e. 4 | — 2813 ) | — 
EDF2 Cl 16 2814 | CMPB.. = #22 NUMBER OF PARAMS GT 22? 
EDF4 1022 FE9D. 2815 LBHI SCSERR -YESs AREA FOR TABS HAS BEEN. EXCEEDED 
| | 2816 | , 
EDF8 BD E74A 2817 JSR. GTCHRA GET MPL» (MPL LE 2555 IE.« 1 BYTE PARAM) 
EDFB 4D 2818 TSTA MPL1 = 0? | 
EDFC 27 On 2819 BEQ 4S -YESs USE DEFAULT VALUES 
| ; 2820 ss 7 
-EDFE 81 66 © 2821 —CMPA #102 MPL1 > 102? 
EEOO 1022 FE91 2822 LBHI SCSERR ‘TYES» ERROR 
| | 2823. | 7 
| "EEO4 97 1A 2824 STA BMARGN DEFAULT BM TO MPLI 
— EEO6 97 18. 2825 STA. MPL1 STORE IN PAGE LENGTH COUNTER 
EE08 2 “5h 2827 4% DECB END OF SEQUENCE? 
EEO9 27 42. 2828 BEQ 2h. YES» DONE 
_ oO 2829 —— con | _ ao 
-EEOB BD E74A 2830 JSR GTCHRA GET TM 
EEOE 4D ~—2831— a ne TM=0?. 
EEOF 27 08 2832 BEQ “bs -YES, USE THE DEFAULT TM © 
| s 4 2833 : _ | 
EEll 91 18 2834  CMPA MPLI TM GT PAGE LENGTH? 
EE13 1022 FE7E 2835 ~LBHI SCSERR -YESs" SCS ERROR 
| oe, 2836 -_ Beg a | 
EEL? §97 19: 2837 STA. ~ TMARGN | STORE IN TOP MARGIN COUNTER 
ees | ae 2838 — . os a: FS Be eet att — 
—EEL9 5A 2839 5% DECB SEQUENCE FINISHED? 
EELA 27 31 2840 BEQ 2% -YESs DONE 
th mo , tek ® 2841. ee’ : -¢ 3 Sone oe an fae ee 
EE1C BD E74A 2842 JSR GTCHRA GET BOTTOM MARGIN 
EELF 4D © 2843 TSTA a | BM=0? ae 
SEEZO .*27 (Ob: 2844 EO Me a, FOG: “YES s USE DEFAULT BM 
EE22 91-18  — | 2846, CMPA  MPLI | BM GT MPL1? 
EE24 1022 FE6D © 2847. -LBHI  — -SCSERR YES» ERROR 
if. | S 2848 Shae set ae ae 
J. gERCOO FOR: 19° — 2849 — ~  CMPA) OoTMARGN BM. tT TMP, ae 
gee FEO? Jo LBLG. - ERROR» DONE 
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EFESC 
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EE42 
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EE48 
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~EE4SB 


EE4D 


EE4F.: 


. EESL 


EE53 


EE54 


— EE56. 


 EE5B 


EEDD™: 


EE5E 


EE60 


EE62°— 


EE64 


- BES. - 
EE68 
EEOA 


-EEGE 


BETO, 


EE72 


97 LA 


5A. 

27 1A 
8E 1400 
BD E74A 


4D 


27 OE 


91 19 
1025 FE53 


91°1A 


1022 FE4D 


A7 80 
5A 


» 26:9 


86 O1 
97 1B | 
iC PE 


34 10 


8E 1400 
6F 8&0 
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97:18 
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2858 — 
2859 
2860 


2861 


2865 


2862 
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2864 
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2867 


2868 


2869 


2870. 


2871 


2872 


2873 


2874 


2876 


2877. 
2878 


2879 
2880 


2881 


2882 


2883 — 


2884 
2885 
2886 
2887 


2888 
2889 
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L$ 


3% 


2S 


VIDFLT 


1$ 


2890 


“e001, 


2892 


2893 


2894 | 
2895 


2h 


CLR 


TST 


“ae OE Se. ot 
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“STAs BMARGN 
DECB - 
BEQ. ra ae 

LOX #VTAB 
JSR ss GTCHRA- 
[Ste - 
BEQ 36 
CMPA TMARGN. 
LBLO SCSERR 
CMPA  _BMARGN 
LBHI SCSERR 
STA- 9 X+ 
DECB | 
BNE L$ 
LDA #1 
STA SVFEFLG 
ANDCC  #!N(CBIT) 
RTS 
PSHS) xX 
LDB.sis#20-—” 
LDX. #VTAB 

9X+ 
DECB | 

‘BNE 1$ 

LDA #1 
STA‘ TMARGN 
STA. LULLN 
STAC) OVPL. 

- SVFFLG 
BNE OP 2$ 
LDA MPL3 
“STAG. | MPL 
‘STA BMARGN 

XsPC _ = 
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STORE IN BOTTOM MARGIN COUNTER 
END OF SEQUENCE ?. | 
-YES, LEAVE 


ONLY 19 TAB STOPS ARE ALLOWED 
GET NEXT TAB STOP 


TAB = 02. 


—-YESs IGNORE IT. 


TAB LT TM? 
- YES, ERROR 


TAB GT BM? a 
PARAM ERROR» DEFAULT VALUES 


STORE IN TAB SAVE AREA 


GOT. ALL TAB STOPS? 


-NOs GO DO NEXT ONE 


CLEAR CARRY — 


CLEAR ALL TABS 


DEFAULT TM 


PREVIOUS SVF? 


-~YESs DEFAULT MPL1= L 


-NOs DEFAULT MPLI=MPL3 


BM=MPL1 





 EET4 
—EE76 


EE 78 
EEA 
EE?D 
EE 7E 


EES1 
EE84. 
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BE. 
BD | 
34. 
E0 
LF 
9B 
91 
23 


BD 
7E 


om 
05 


ISIFP | CR6809/11 version 10.36420 
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2897 


2898 


2899 — 
2900 


2901 
2902 
2903 
2904 


2905 


2906 
2907 
2908 


2909 
(2910 > 
2911 
se9L2 


2913 


2914 


2915 
2916 
2917 
2918 
2919 
2920 


2921 


2922 
2923 


— VTSUB 


34% 


5S 
10% 


— 204% 


TS: ., 
BEQ 
LDA 
LBRA 
PSHS 


LDA 
-LDX 


JSR 


PSHS 
SUBB 
TER 

ADDA 


CMPA 


BLS 


JSR 
JMP 


INC. 
“JSR 


BCS 
DECB 
BNE 


CLR 


PULS 


SOFTEE 


3S 


#SOT 


OUTCHR 


x 
LULLN 


#VTAB | 
FNDTAB 


A = 
OsS+ 

BsA 
LULLN 


5 $ 


FF1 


20 


OVRFLG 


LFLSUB. 


203 


10$ 


OVRFLG 
XsPC 





one 


BMARGN. 


ee 


| JS oPage 5420. 


SOFTWARE FORM FEED SELECTED? | 


-NO» DO AN ASCII VERT. TAB 


“YES, DO A VTAB 


FIND ACTIVE. TAB 


ACCB = LINES TO BE MOVED 


ACCA=NEW VERT. POSe 


WILL WE EXCEED BM?_ 


“NOs SPIT OUT LF'S 


“YES, DD A FF INSTEAD 


“NO HOLD/PE DURING VERT. TAB 


SPIT OUT LINE FEED 


“ANY MORE TO DO? 


-YESs REPEAT 


-NOy CLEAR OVERIDE FLAG 
RETURN ws 


td 


“-EEAS 35-90 © 2B —PULS => XGPOe le RETURN 





CR6809/11 version 10.36420 | 


EEAT . 


EEAA 


EEAD 


EEAE 


EEB2 
EEB4 


EEBS8 
EEBB 
EEBC 


EEBE 


 EECO 


EEC4 
ECS 


EEC8 


EEC9 


EECB 
EECE 
EECF 


EED1 


EED3 


EED7 
EEDO 


EEDB 
 BEDC: | 


EEDE 


EEEL 


-EEE2 © 


PEER: 
BEES: . 


EEA 


 EEEC 
EEED 


EEEF 
REED 
ome So 


“TYPE A RS- 232 PROGRAM 


BD EFOC 
BD E740 
5A 

1027 0057 


Cl 16 


1022. FDDD 


BD E74A 


4D 
27 OA 


‘81 84 


1022 FDDIL 


97 34 


97 32 


5A 


2¢ 3E 


BD E74A 


4D 


. 27 0A 


9132 


1022 FDBE 


97°33 
97 30 


5A 


27 2B 


BD E74A_ 


4D 
27 08 


8184 
1022 FDAB 


97 34 
5A. 


27, 1A 


“Sea aic 
2 BDSE PAA o. 
ee AD er ee 


~~ 2926 


2927 


2928 
2929 — 


2930 


2931 
2932. 
(2933 


2934 
2935 


2936 


2937 


2938 
2939 


2940 
2941 
2942 


2943 
2944 


2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 


(2956 


2957 


(2958 
2959 


2960 
2961 
2962 
2963 


2964 
2965 
2966 


2967 


2968 


2969 
2970 


2971 


2972 


2973 


2974 
2975 


2976 
2977. 


—5-Mar-84 


an 


SHF SUB 


430 


6S. 


a ae | . 


ene 


: ROI RO ka dake aka ak sake ak cae ak iGo a oi Rg dog: Serrrrrr errr rer 


SUBROUTINE TO PERFORM THE SHF COMMAND * 
AOI RR AGI RRR RR aR a ake oF AB IC ICR Ra ICR Rk a a Be 


 BEQ 


JSR HTDELT 
ISSR GTCHRB 
DECB | 
LBEQ 24% 
CMPB #22 
LBHI SCSERR 
JSR GTCHRA 
TSTA . 
BEQ 4% 
CMPA. #132 
LBHI SCSERR 
STA RMARGN 
STA MPP 
DECB 
—BEQ 2%. 
JSR. GTCHRA 
TSTA-- | 
«5S 
CMPA MPPL 
LBHI SCSERR. 
STA LMARGN 
STA HP 1 
DECB. ' 
— BEQ: 2% 
JSR GTCHRA 
TS TA | 
BEQ. 6$ 
CMPA. #132 
LBHI SCSERR 
STA RMARGN 
DECB 
BEQ aes 
-LDX ss #HTAB” 
JSR ~GTCHRA 


SET DEFAULT VALUES 


B HAS COUNT 


IF COUNT IS ls DONE. 


NUMBER OF PARAMS GT 22? 
-YES) AREA FOR TABS HAS BEEN EXCEEDED 


GET MPPL 
MPP1 = 0? 


“YES: USE DEFAULT VALUES” 


MPP1 > 132? 
~YESs ERROR 


DEFAULT RM TO MPPI1 


STORE IN LINE LENGTH COUNTER 


END OF SEQUENCE? > 
~YESs DONE 


GET LM 


 LM=0? 


ie USE THE. DEFAULT uM 


LM GT LINE LENGTH? 
ieee SCS ERROR | 


STORE IN LEFT MARGIN COUNTER 
NEW HORIZ. POS = LM 


SEQUENCE FINISHED? 
“YES, DONE 


GET RIGHT MARGIN 


 RM=0? 


ee USE) DEFAULT RM 


RM GT PHYSICAL LINE LENGTH? 
YESs ERROR 


STORE IN RIGHT MARGIN COUNTER 
END- OF SEQUENCE ? 
“YES» LEAVE | 


ONLY 19 TAB STOPS ARE ALLOWED | 
GET NEXT TAB STOP. 
eS MORITZ» - TABS OF. 


ISIFP. 


EEF 6 


EEF8- 


-EEFA 


EEFE 


EFOO 


—EFO4 
EFO6 
EFO7 


-EFO9 


EFOC 
EFOE 
EF10 
EF LS 


EPL 


EF16 


EF18 
EFLA 


' BFLC 


ERLE 


EF21 
EF23 — 


EF25 


 -EF2?7 


EF29 


EF2B 
. EF2e. 
~EF31 


EF33 


 EF35 
EF38° 


27 


91 


91 


AT 


5A 


26 


TE 


OE... 


3300. 
1025 FD97 


32 


1022 FOIL 


80 
E9 


EF9O?. 


AD: 


141C 
B80. 


ISIFP.SRC . 


CR6809/11 version 10.36.20 
TYPE A RS=232 PROGRAM 


2978— 


2979 
2980 


~—62981 


2982 
298 3 
2984 


2985 


2995. 


2986 
2987 


2988 
2989 


2990 


2992 
2993 
2994 


2996 
~— 29ST 
2998 


2999 


3000 


3001 


3002 
3003 


3004. 
3005. 
3006 


5-Mar-84 8:49:56. 


34% 


2S 


HTDELT 


1% 


23 


4 BOOT = a 


a. 3009" 
3010 


3011 


3012 
3013 


~ 3614 
3015 


3016 


BEQ 


CMPA 


LBLO 


CMPA 


LBHI 


STA. 


DECB 


BNE 


JMP 


PSHS 


LDB 
LDX 
CLR 


DECB 


BNE 


LDA. 
STA. 
STA. 


LDA 


TRS, «: 
STA 


 PULS 


PSHS. 
ROR 
LDX 
JSR 
PSHS | 
— SUBB 


ert 
— PULS 


3h 


—LMARGN 
SCSERR | 


MPP 1 
SCSERR 


9X+ 


1$ 


~CRISUB 


#20 
HHTAB. 
9X+- 


1S 


» tL. | 
LMARGN | 
HPL | 
MAXLEN 


-MPPL 
—RMARGN. 


: “x . 


HP1 © 


HHTAB 
FNDTAB 
OA one 
“Oeste 1s 
~~ BLANKB 
“KePC. | 


Page 55-1 


 =YES, IGNORE IT 


TAB-LT LM? 
- YES, ERROR 


TAB GT LOGICAL LINE LENGTH? 
PARAM ERROR» DEFAULT VALUES 


STORE IN TAB SAVE AREA 
GOT ALL TAB STOPS? 
-NO,» GO DO NEXT ONE 


RESET CARRIAGE TO LEFT MARGIN 


CLEAR ALL TABS 


DEFAULT LM 


DEFAULT MPP1=MPP3 


RM=MPP1 


. MPC: 


FIND ACTIVE TAB. | 

ACCB = SPACES TO BE MOVED 

SPIT..OUT SPACES: = HTB...) | 
L=VEs RETURN 


-ISIFP  CR6809/11 version 10.36.20 | 5=Mar—84 8:49:56 


— TYPE A RS-232 PROGRAM ISIFP.SRC ROE, PeE Es 


tt 


3018 
3019 
3020 
3021 
3022 


**  FNDTAB RETURNS ACTIVE TAB IN ACCBe THE ACTIVE TAB IS THE SMALLEST 
TAB GREATER THAN ACCA (LUILN OR LULCOL). IF THERE ARE NO ACTIVE © 
TABSs ACCB=ACCA+1. THE TAB SEARCH IS. TERMINATED NHEN A TAB STOP 
OF ZERO IS FOUND (INVALID TAB STOP) 


tet 


we 


EFSR 


~EF3C 


EF3E 
EF40 


EF42 
EF 44 


EF4F 
EF51 
EF53. 


EF46 


EF48 


EF4A 
EF4C 


EF55 


—EF57 


EF58 - 


EF59 


EF5B 


EFSF 


CC ERT2 | 


EF6l 
EF63 


EF67 


EF69 


EF6C. 
-EF6F .. 
EF 71 


C6 


34 


EG 


ar 


Al 
24 


El 
24 


E?/ 


35 


26 
“LF 


39 


oD 


FF 


04 


84 


OD 


80 


FS 
E4 
F 4 
E4 
EF3E 


04 


FF 
03 


89 


36 


1026 O028C 


96 
91 


OC 


TE 


BOD 


24 


Le. 
LA 


+102C 0008 


16 


FLEB 


EF97 
Ol. 


39 


OD 


36 


— 3023 


3024 
3025 


3026 


(3032 


3027 


3028 


3029 > 


3030 
3031 


3033 
3034 
3035 
3036 
3037 
3038 


3039 


3043 
3044 


3040 
3041 
3042 


3045 


3047 


3048 


3049 


— 3050 


(3055 — 


3057 
3058 
3059 

3060 
3061 


2051 
3052 


3053 


3054 


FNDTAB 


1$ 


24 


3S 


LFISUB 


~FFLSUB~ 


LDB 


PSHS 


LDB 


BEQ — 


CMPA 
BHS — 


CMPB 


BHS 


STB 


JMP 


PULS 


CMPB 
BNE 


TER 


INCB 


RTS 


TST. 
LBNE 


LDA 


CMPA 
LBGE 


INC 
JMP 


JSR 


1g Bey, © 
RTS. 


75 


HOFF 
B 

O 9X 
2% 
05X+ 
1Ss 


OsS 
1% 


SORTER . 


PLF 


LULLN 


-- BMARGN. 
FFL 


 LULLN 
eth Ge * 


SCR SUB 
oe PAP AB. 


SOFTEE 


NEW TAB=02 
— =YESs DONE SEARCHING 


NEW TAB > CURRENT LINE ‘OR COLUMN (=ACCA)? 


-NOs CHECK NEXT TAB 


NEW TAB < ACTIVE TAB? 
-NOs CHECK NEXT TAB 
-~YES,; NEW ACTIVE TAB FOUND 


ANY ACTIVE TABS? 
~YES, RETURN 


‘=NOy SET ACTIVE TAB=CURRENT POSITION+1 


SOFT FORM FEED SELECTED? 
“NO, DO ONLY 1 LF 


“YES, D0 AN LUL LINE FEED 
AT BOTTOM MARGIN? 
“YES, DO A FORM FEED 


=NOs JUST A LINE FEED 


“DO AN LUL CR W/LEFT MARGIN 
DONE IF PRINTER HUNG 


‘SOFT Lu PRE ey 


—ISIFP. 


EFT74 


EF/6 
EF7S8& .. 


EF 7B 


-EFT7E 


EF8O 


—EF82 


~~ EFS8B. 


EF 84 
EF 86 
EF 89 


EF8C 


EF8E 
EF90 


EF92 


 EF94 


EF9E 
 EFAO 
EFAL 


EF96. 


EF97 


EF99 
EF9B 


EFA4 


EFA? 


‘epho. 
EFAC 


 EFAD 
“EF BO 


 EFB2 


EFB3 


2 


BD 
~ 25° 


BD 
39 


5A 


7C 


08 
co 
F200 
EFBE 


18 


19. 


35 


LEB 


F8 


35 
19 


216 


Ol 


ELFO 
33 


F693 


EF97 


03 


ESO". 


1574 
30 


ISIFP.SRC 


s CR6809/11 version 10.36.20 
TYPE A RS-232 PROGRAM 


= 3062 
3063 

. 3064 
— 3065 


3066 


3067 — 
3068. 


3069 


3070. 


3071 


BOTZ: - 


3073 


3074 


3075 ... 
3076 | 


3077 


3084 


3078 
3079 
3060 


3081 
3082 © 


3085 


3086 


3087 


3089 


3088 


3091 


3093 -— 
3094 


3092 


3095 


3097 


3098 


3099 


3100, 
~310L 


5-Mar—84 


55. 


103 


20% 


CRISUB 


NL1SUB 


41g 


BKSSUB 


BEQ 


LDA 


JSR 
JMP 


LDB 


SUBB 
ADDB 


INC 


JSR- 


BCS 
DECB 
BNE 


CLR 
LDB- 
STB 
STB 


RTS 


LDB 


SB -23 


JSR 
LDB 


 DECB: 
/ SMP 


SSR. 


BCS. 


JSR 
RTS 


INC 
LOB oH 
eDECE.o A 


“OTST 


8249256 


5% 


HEE 


OUTCHR- 


20% 


~MPLI 


VPI 


TMARGN | 


OVRFLG 
PLF 
205 


10$ 


OVRELG | 
TMARGN- 


VP 1 
LULLN 


#1 


HPL 
PCRI1. 
LMARGN | 


— BLANKB | 


‘CRISUB | 


1$ 


LF1SUB 


“MLTENC 
HPL 


ES i 
=NOe DO DBC FF 

(LFLSUB ENTRY POINT f!1° 

ACCE CONTAINS # OF LINES TO BE MOVED 


NO HOLD/PE DURING FORM FEED 
DO EQUIVILENT # OF LINE FEEDS 


DONE YET? | 
- =NOy CONTINUE 


OK TO HOLD 
INITIALIZE LUI POINTERS 


RESET LUL COLUMN COUNT. 
DO A CARRIAGE RETURN 


SPACE OUT TO LEFT MARGIN AND RETIRN 


TELL: LULPRT THAT ON RETURN ACCA HAS NEW CHR 


“ADJUST. HORIZ« POs: «COL1= OD. 


~ gacKeD uP TO COL. 2 - YET?. 


ISIFP 


TYPE A RS— 232 PROGRAM: 


CR6809/11 version 10. oe 20 


‘eaes 


EFBC 


EFB6 
EFB7. 


EFBA 


EFBE 


EFCO 
EFC3 
EFCS 


EFC? 
EFCA 


27 


Ol 





ISIFP «SRC 


3102 


(3103 


3104 
3105— 
3106. 


3107 


(3108 


3109 
3110 


(3111 


a ee 


3112 


3114 


2% 


55-Mar-84 


 BEQ 


DECB 


JSR 
CMPA 


BEQ 


PSHS_ 


JSR 
LDA 
STA 
JSR 


PULS | 


8249256 


2$ 


GTCHRA® 
#BCKSPC 


1S 


A 
PCR1 
#1 


| cee 
BLANKB 


AsPC 


~-YES,s DON'T GO FURTHER  € Te gee 
COUNT THE BACKSPACE 
ANOTHER BACKSPACE?) 

-YES,s KEEP COUNTING 


-NOy SAVE NEW EBCDIC FOR FURTHER PROCESS ING 
SET DEVICE TO COLUMN 1 | 


UPDATE HP1 
“SPACE BACK QUT 
RETURN | 





ISIFP  CR6809/11 version 10.36.20 5-Mar-84 8:49:56 | Page 56 © 
_ TYPE A RS—232 PROGRAM  ISIFP.SRC | cu «= | ee re 
3116) FSO ool i idk ioigioig ici i ici aigiiigiiici ick igioi ick ickaiok daiak ackciak akg 
3118 
3119. 
3120 
3121 
3122 
3123 
3124. 


ai 


CONVERTS DeBeCe TO PRINTER ASCII 

AND QUTPUTS THE CHARACTER(S) | 

USING THE TWO BYTE TABLE (LU3TAB) 
(SEE TABLE AREA FOR SPECS) | 


"OUTASC'. 


+ + 


OUTPUTS. CHARs SEQUENCES IF MICR 
CHAR'S ARE FOUND. | | 


ot He de 4 


EFCC 


EFCE | 
 EFDO 


EFD2 


EFD4 . 
“EPD Ts 
EFDA. 


-EFDC 
-EFDE 
-EFDF 
EFEL 


EFE3 
EFE4 


EFE6 


EFE9 
EFEB 
EFED 
EFFO 
EFF2 
EFF4 


EFF? 
ERF® =. 


-EFFC 


“~EPEE 


EFFF 


FOO1 


F003. 
F005 
F008 


FOOA 


FOOE.. 
—  FOLO 
SPOT: 


84 


BD 7 
1025 0056: 


36 
LE 
OF . 
C196 
88 1D 


—3C 


85 


890 


03 


FO89O 


Fa 


FOOF 
FF 
FO71 


04 
C196 


a 


5 02 
L025 O05F. 


TF 


FO8O 


3125 


3126 


3127? 


3128 
3129 
3130 
3131 


3132, 


3133 


Se 4: 


eo oe, 


3136 
3137 
3138 
3139 


3140 
3141 


3142 


3143 
(3144 


3145 


3146. 


3147 


3148 


3149 


3150 
31513" 


3152 
3153 


3154 


ISLS 
3156 


oot 


3158 


‘ = | | 
2 RE ARE A A ESE A CAE KC A a AC aK Ea Ce AC a 2S aC 2 AC aR aK ae ie ic a A aK ai ee 2c ie 2 a ac aK ak aK ae 2k 
YoXoBsA | | 


DUTASC 


10$% 


253. 


30% 


3159 


3160 
* FUG tt: 


3162 


(3164. 
3165— 
3166 


3163 


"te  PULS: 
:MEBCS© 


404 


306 t  oce>. 


PSHS. 
CMPA 


BLO: OC: 


ANDA 
LDX 
LEAX 
LDB 
STB 


MUL 


LEAX 
LDA 
TST 


BEQ 


JSR 
DEC 


BNE 


JMP 


LDB 
PSHS 
JSR 
PSHS 


TST 


BEQ- 


cep age 
oe 


PSHS 


LDAS.. 


JSR 


 ANDA 


JSR 


~LBCS” 


#SFO 
30% 


#SOF 


#HCONFIG | 
MCRTAB XxX 


9X+ 


COUNTR | 


Ba X 
5 X+ 
A ; 
254 


DEVOUT 


COUNTR 
10% 


1403 


 o#SFF 


B 


CVTASC 
CONFIG 


50S 


A 


ah re 
#$1B 0 
DEVOUT 
ae 


130%. 


PS TE eo hs cos 
“ST QEVOUT fc 


40$ 





CHAR. = MICR 2? 
-NOs HANDLE NORMAL 


-YESs MASK OFF UPPER 4 BITS 


“POINT TO MICR CHARs TABLE 


GET SEQ. COUNT 


DERIVE OFFSET = (CHARs» #) X (COUNT) 
POINT TO PROPER SEQ. | : 
OUTPUT "COUNT" # OF CHARACTERS 


“DON'T GUTPUT NULLS - 


OUTPUT TO DEVICE 


RETURN | 
SET LOOP FLAG 


CONVERT D.BeCw. TO ASCII (TWO BYTES) 
SAVE 2ND | 


DEVICE = MICR PRINTER ? 


SVES, BIT “a: SET.2 


- =YESs OUTPUT ESCAPE 1ST 


MASK OFF BIT 8 
~YESy QUTPUT 1ST CHAR. | 


FOL7. 


FO19 


FOILC | 


FO20 
FO23 
FO25 


FO27. 


FO29 
FO2C 


FOZ 


FOZE 


- FO2F 


F030 
FO31 
F033 

F036 
F038 


FO3A 


— FO3D 
FO3F 


FO41 


F043_ 
FO45 
FO47. 


—FO4A 


Ao 


BD 
1025 004D 


tE 
C5 


27. 


34 
BE 
4 


56 


49 


E4. 
FO80 


F068 
CO 
13 


Oe: 
C180 


ISIFP CR6809/11 version 10.3620 
TYPE A RS-232 PROGRAM ISIFP.SRC 


3168 
3169 
3170 


31/71 


3172. 


3173 
3174 . 
3175 


3176 


ALT? 


3178 


3179+ 
 3180A : 
3181A 


3182+ 
3183A 
3184A 


3185 


3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 


3196. 


3197 


3198. 


BCS 


1303 


5—-Mar-84 8:49:56. ~ Page 56-1... 
LDA’. O%5S | Be, tee oy eS : 
JSR DEVOUT OUTPUT 2ND CHAR. | 
LBCS 1308 a wh . | 
JMP | 125% | : | 
50$ BITB #%11000000 ANY PRE CHAR. CONTROL ? 
oO BEQ 100% -NOs OUTPUT LST CHAR. 
PSHS BoA | 7 | 
LDX. #PRECHR -YES,s POINT TO PRE. CHARe TABLE 
CLR A | | | 
LSLD | 
~ LSLB - 
ROLA 
LSLD 
LSLB 
ROLA | 
LDA AyX GET CONTROL CHAR. 
JSR DEVOUT OUTPUT IT 
PULS BoA - - st 
BCS 130$ CARRY SET = BUSY TIME OUT 
100% JSR DEVOUT OUTPUT 1ST CHAR. 
= ANDB| #%11000000 CONTROL = C1=-CHAR-C2 ? 
 CMPB -#Z%11000000 . | 
BNE © 1203 -NO 
LDA. #%Z00000100 YES» GET- C2. 
LDA AX | | oo 
JSR DEVOUT OUTPUT IT fe a Sant he 
| CARRY SET = BUSY TIME QUT 


FO4C 
FO4E 
FOQ50 


~~ FO52 
FO54 


F056 


FO59_ 


FO5B 
FO5E 
F060 
F062 
F064 


FO66. 


FO67 
F068 


oon: © 


FO6D 


FOOF 


6C 
267 


£6 


C4 


27 


61 
1B 


TYPE A RS—232 PROGRAM ISIFP «SRC. 
3200 
3201 
Bere 
3203 


3204 


3205 
3206 


3207 


3208 


3209 


3210 
3211. 


3212 
3213 


3214 
2219. 


3216 
3217 
3218 
3219 
3220 
3221 


5—Mar—84 8:49:56 


120% 


125$ 
130$ 
140% 


INC 


LDB 


ANDB 


BEQ 


LDX 
LDA 
JSR 
BCS 


“LEAX 
LDA. 
-LDB 


ASLB 
ASLB 
JMP 


ANDCC 


LEAS 


 PULS- 


13S 


125% 


OS 


#%00001111 
1253 


— #BACKSP | 


OX. 
DEVOUT 
130$ 
lsX 
BaX. 
Oe5 


50S 


#!NCOCBIT) 


29S 
AsBsXsYoPC 


CLEAR CARRY | 


Page ee 


2ND TIME THRU LOOP ?— 
-YESs DONE 


-NOs ANY 2ND CHAR». 2? 
-NO» DONE. 
~YES,s OUTPUT BACK SPACE. 


CARRY SET = BUSY TIME OUT 
POINT TO 2ND CHARs TABLE 


“YES, REENTER LOOP 


RETURN 


ISIFP 


|  CR6809/11 version 10.36.20 
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FO71 


FO 73. 


FOV? 


FO79. 


FO7A 
FO7B 
FO7C 
FO7E 


FO8) 


F082 


F083 


F086. 
FO88 


FOBA 


 FO8D 
— FO8F 


~FO9O0 
FO92 


- FOOF 
FOAL 


F094 
F096 


FO98 
FO9B 
FOOD 


34 20 : 
-108E C000 | 


1F 89 
4F | 


EC AB 


35 AO 


34 02 


BD F191. 


25 05. 


B7 4C00 
om 


34 O02 
AB BO 
st Ge oa 


ef O07 


BD FO8O 


20 02. 


~1C FE 


35 82° 


ee 


3224 


3225 


3226 


3227 
3228 © 


3229 


3230 


3231 
3232 
3233 
3234+ 
3235A 
3236A 
3237 
3238 


3240 
3241 


3243 
3244 
3245 


~ 3246 


3247 


3248 
—3249- 


3251 
3252 
3253 


3254 
3255 


3256 


3257 
3258 


3259 


3260 
3261 
3262 


3263 


SSG RIGS OICGIOG SSS CI SGI ISR gaiaiokiaiok ilk ak 


ok 


3% 3 tH 4 


CVTASC 


st 
“ 


DEVOUT 
3242 


sa 


ok 


OUTX 
10% 


ENTRY : 


EXIT: 


PSHS 
LDY 


TER. 


CLR 
LSLD 


LSBs ia: 


ROLA 
LDD 
PULS 


OUTPUT A 


PSHS 
CLR 


“JSR 
PULS 


BCS 


STA 


ANDCC 
RTS 


“OUTX* 


PSHS 


LDA 


CMPA 


— BEQ” 


JSR 
BCC 


BRA 


20% 
303 


— ANDCC | 
 PULS 


5 Ne 


ACC A. 


ACCA 


ACCBR 


#LU3TAB 


AsB 


A 
A 
BSYCHK 


103 


CHAR TO THE. 


ACIADT 
#!N(CBIT) 


NO PRINTIN 


A : 
9X+ 


HSER. 


20% : 


10% 
303 


DEVOUT © 


#!N(CBIT) — 


AyPC 


CONVERT D.BeCw. TO ASCII (TWO BYTES) 


= . DBC. CHAR. 


- ASCII. CHAR. 
- CONTROL INFORMATION 


ACIA 


FAULT OR BUSY TIME OUT / 


-NOy TRANSMIT CHARe. 


—QUTPUTS A SEQUENCE POINTED TO BY X UNTIL 'FF*. 
G IS DONE, NO COLUMN MOVEMENT 


CSET MEANS PRINTER DEAD 





—ISIFP © CR6809/11 version 10.36+620 | 5—Mar—84 8:49:56 Page BO ws 
TYPE A RS-232 PROGRAM ISIFP.SRC | 2 Pa fe 


3265. 


FOA3 34 06 3266 BCDBIN  PSHS AsB ie eS ae 

FOA5 . 84 FO 3267 | — ANDA #SFO MSD FIRST 

FOA7 81 90 3268 CMPA  —-#$90 MSD OK? | 

FOA9 22 15 3269 BHI ~ BADBCD -NO»s DONE 

— 3270 . 

FOAB 44 3271 LSRA 

FOAC 44 272° LSRA 

FOAD 44 3273 LSRA Se | 
FOAE 44 3274 LSRA MOVE HIGH NIBBLE DIWN TO LOW NIBBLE POSITION 
: 3275. | 7 | a 4 : | 
FOAF C6 OA 3276 LDB #SOA | ne | - 

FOB1L 3D 3277. MUL | | MULT MOST SIGNIFICANT BCD # BY 10 

| | 3278 | | | | | | 

FOB2 A6 E4 3279 LDA 2S | 

FOB4 84 OF 3280 ANDA #% OF LSD NOW 

FOB6 81 09 3281 CMPA #309 — LSD OK? 

FOB8 22 06 3282. BHI BADBCD -NOs DONE 

ata 3283 | 

FOBA 34 04 3284 PSHS B -~YES,; ADD B TO A AND DONE 

FOBC AB El 3285 ADDA S++. AND CLEAR CARRY» POP A OFF STACK. 

FOBE 35 84 3286 PULS BsPC a 

| pg 3287 | 
FOCO 1A Ol 3288 BADBCD ORCC #CBIT SET CARRY 
FOC2 35 86 3289 | PULS AsBsPC DONE 


ISIFP | 


—FOCB 
-FOCE 


FOC4 
FOC6 
FOC9 


~FODO 


—FOD2 
FOD4 


FOD6 


FOD9 
FODB 


FODE 
FOEO 


FOE? 


—FOEA| 
FOEC. 


OLE: % 
 FOFO 
~~ FOF3 


— FOFS - 
OFS | 
— FOFA. 


FOES — 
FOE7 


ae 


ey 


ast 


BD 


85 


| 26 


85 
ra 


BD. 


7E 


85 


27 


BD 


we 


85 


86 


24 


BD 


ate 


02 


E9B8 


32 
ESCA 


23 


08 
08 


F102 


FOCo 


01 


08 


F1l6D 


OCG 


04 
D8 


FA 


D1 


FDS 


F100 2 


ISIFP. SRC 


(3292 


CR6809/11 version ‘10. 36s 20 
TYPE A RS- 232 PROGRAM 


3291 


3293 


3294. 
(3295 | 


3296 


A567 


3298 
3279 
3300 
3301 
3302 


3303 


3304 


3305 


3320 


3306 


3307 


3308 
3309 
3310 
3311 
3312 
3313 
3314 


3315 
3316 


3317 
3318 
3319 


3321 


3322 


3323 


3324 
3325 


3326 


3327 


3328 


3329 
— 3330— 


3331 


3332. 
2333: 
3334 


3335 
- 3336 


eo 


(3338 


BSF! tts 
3340 
re 3341. |. 

Mes, BBACe 23 


i ee i 


ers 


5-Mar—84 


* 


"DEVCHK® 


8:49:56 


HANDLES 


EXIT: 


“Page 60 © 


ELLEN TE ETIA AERA ETS ETOH ETE RETET ERE ENED 


“THIS ROUTINE CHECKS THE DEVICE AND 


THE FOLLOWING TIMEOUTS. 


HOLD PRINT . = 10 MIN. 
PAPER EMPTY | - 1 MINe. 
BUSY — 30 SECe 


EXCEEDING ANY TIMEOUT CAUSES IR TO BE 
SET IN THE STATUS BYTE«s. 
CAUSES IR TO BE CLEARED. 


DEVICE READY. 


C SET - TIME OUT EXCEEDED at 
| OR IR CLEARED IN STATUS 
C CLEAR = DEVICE READY 


2 2 a ak ae akc a ab aks akc ake ok ake ak a ok SECCHCCEICHOGHOCHIOO HCE HOST IGE iobick i 


DEVCHK 


— OS 


PSHS 
JSR 
BEQ 


JSR 


 BITA 
BNE 


BITA. 


BEQ 


“Sk 


103 


20$ 


BCS 
JMP 
BITA 
BEQ 
JSR. 


BCS” 
JMP 


BITA 
BEQ- 


LDA 


— BCC 


JSR 


Pe BORGES: oe 


5S 


A 


DEVTST 
405 


DVSTSA 


HFLTBIT 
305 


#HLDBIT 
103% 


~HLDCHK 
303. 


5S 


#PEBIT 
203 


 PECHK _ 


30% 


658 


#BSYBIT 
5S 


BS YCHK 


= SETIR: 
“aOBIT ge 
BOS is 


“#(HLDBIT!+PEBIT) 


wYES 9. 


=NOs 


=NOs 


DEVICE READY ? 
-YES,; CLEAR IR & RETURN 


-NO»s FAULTED ? 


SET TR ==> DONE 
HOLD 2 
aViESs ENTER. HOLD PRINT. 
DONE IF HOLD TIMEOJT EXCEEDED 
OTHERWISE START OVER 
PAPER EMPTY ? 


-YESs TIME PAPER EMPTY 
DONE IF TIME OUT EXCEEDED 


OTHERWISE START OVER 


-NOys BUSY ?> | | 

“NOs RESTART CHECK SEQUENCE 
aVES,: SET: BITS 70° EXIT BUSY = 

-~YESs TIME BUSY | | 


RESTART SEQUENCE IF NOT BUSY 


SET IR IF ANY TIME OUT EXCEEDED | 


Set. CARRY. TG INDICATE ae : 
OUT EXCEEDED | rs 7 | 


ISIFP  CR6809/11 version 1036420. 
TYPE A RS=232 PROGRAM  ISIFP.SRC 


3343 


FOFD BD FIBE 3344 
F100. 35 82 ts 3345 


5-Mar-84 8:49:56 


408 
508 


JSR 


PULS 


CLRIR © 


AyPC 





| Page 60-1 fe le 


CLEAR IR IN STATUS BYTE 
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F102 
F104 © 
F107 


FLOA 


F10C 


FLOF 


Filled 


F114 


F116 


Fll8— 


FILA 


F11D 


FLIF 


F121 
FL24. 0 


F127 


F129. 


Fi2B 


F12E 
F130. 
Fig2 


F134 
F136 
F138 


TYPE A RS- 3g PROGRAM 


35 


F4F2 
03E8 


F3DF 
E9CA 
02 
4E 


08 
16 


E9BS8 


3347 - 
3348) 


3349 


3350 


3351 
3352 


~—3353. 


3354 
3355 


3356. 


3357 


-a5090 


3359 


3360 


3361 


3362 
3363 © 
3364 | 
3365 . 

3366 


3367 
3368 


3369 


3370 
3371 
3372 


(3373 
3374 
3375 
3376 


33770 


3378 
3379 
3380 


3381 
3382 
3383 
3384 


3385 


3386 


(3387) 
(3388 
3389 


—— 


Ada 


SEES SCOIS HGS SHOE GIES IES COD NCSISH IS EC ISG nnn mi rb, 


* 
s "HLDCHK' THIS ROUTINE IS ENTERED IF THE HOLD LED 
* a; IS ON AND THE PRINTER IS AT THE END OF 
C A PRINT LINE» HOLD PRINT TIME OUT IS 
: 10 MIN. 
2c | 
b+ ; < | 
* EXIT: C SET - TIME OUT EXCEEDED 
* C CLEAR - RETURN TO ENABLED 
ETAT See eee eee eee ene eee eh a eee ae eae eee ce 
HLDCHK .PSHS YoXoBo _ | 
«SSR HITST DEBOUNCE HOLD SWITCH 
LDX #1000 HOLD TIME OUT =(.0025 X 400)X600=— 
LDA #ALARM TURN OFF THE ALARM ON ENTERING HOLD | 
JSR LEDOFF | 4 
10$ JSR DVSTSA GET DEVICE STATUS 
| BITA #ELTBIT DEVICE FAULTED ? 
BNE 70% “YES, SET CARRY & RETURN 
BITA #HLDBIT “NOs STILL IN HOLD ? 
BNE 308 
JSR DEVTST. } | 
BNE 203 -NOsDON'T ENABLE TIL DEVICE READY 
LDA #RDYLED TURN ON THE READY LED ON ENABLE ~ 
JSR LEDON _ Fae 
MP 80$ 
20% PSHS A er | 
LDA HHLDLED ~YES, LEAVE HOLD LED ON | 
JSR LEDON _ | 
PULS A 7 
303 BITA #PEBIT PAPER EMPTY ? 
: BEQ 403 -NO_ | 
LDA  —- LEDREG: -YESs BEEN INDICATED ? 
— -BITA—o#!NCCHKLED) | - 
-BEQ<. °° 408°. ~YES 


~CR6809/11 version 10+36420 — 


FI3A 


eisc* 


F13F 
F143 


F146 


FL4S9 


F148. 


F14D 


FL4E. 
FL51. 
Piss: 
Piss. - 


PLO? 


FL5A 


F158. 


FL5E 
F160 


F164 


F166 


F169 _— 
foe 


TYPE A. RS=232 PROGRAM. 


86 7D 7 
BD F3E9_ 


108E 0190 


BD E99E 
Bé 0011 


~—6B1l «606 
26 1il 


86 O1 
95 58 
26 07 


BD F3DF 
7E FI5E 


4300 
BD F3E9 


30 1F 
1026 FFAB 


1A Ol 
7E F16B 
‘1C FE 
35 Bo 


ISIFP.SRC 


3391 


3392 


3393 
3394 
3395 


3396 


3397 
3398 


ape ee 


3400. 


3401 


3402 


3403 
3404 


3405 — 


3406 
3407 


3408 
3409 
3410 


—=3411 


3412 
3413 


3414 — 


3415 
3416 


3417 


5-Mar-84 8:49:56  —- Page 62 


403. 


50% 


(60% 
70S 


80$ 
903 — 


LDA 


JSR 


ED Y= 
JSR. 
LDA 
~~ CMPA 
BNE 


LDA. 
BITA 


BNE | 


COMA 
JSR 


UMP 


COMA 

SSR 
 LEAX 
-LBNE 


ORCC 


JMP 


ANDCC 
PULS -:- 


— #CCHKLED!. ALARM) | 


AeBoaXs¥oPC 


LEDON -NO, TURN ON CHECK & ALARM | 
#400 — DELAY 1.0 SEC 
~YTIMER - | 
MODE2 IN LU1 MODE ? 
#LU1 oa | 
60S 
#!N(RDYLED) -YESs FLASH THE READY LED 
LEDREG 8 
50$ 
LEDOFF 
60 
LEDON 
—19X DEC HOLD COUNT | 
10% LOOP TIL COUNT = 0 
#CBIT. TIME QUT EXCEEDED SET CARRY 
903 — & RETURN | 


CLEAR CARRY 
RETURN 


#INC(CBIT) 





~F1l6D 
F16F 
Fis 
F174 
PLT? 
F178 
F17E 
F180 
F182 


F184 


F186 


F188 


F18A 


F18D 


FL8F. 


34 


86 
BD 


BE 
108E 0004. 
BD E9AD. 


32 
70 

F3E9 
1770 


Oyen 
04 
09 


iF 


er 


Ol 


F18F 


ee 


Be 


-ISIFP = CR6809/11 version 10.36.20 — 
TYPE A RS=232 PROGRAM ISIFP.SRC 


3419 


3420 
3421 
3422. 


3423 
3424 
3425 
3426 


3427 


3428 


3429 


3430 
3431 


~3432 
—- 3433 


3434 
3435 
3436 


3437 


3438 
3439 
3440 


(3441 
3442 
3443. 


3444 


3445 


3446 


3447. 


3448 


5—Mar-84 8:49:56 Page 63 


ROIS CIIGOIGICIC GIGI IGIGIOGIIGIGO ISG ICI GOO GGG IGIGIG I ICR oi ack a fei a a i ick ia 


AK AK OK | 

x | | | | 7 | | 

2 "PECHK" THIS ROUTINE IS ENTERED IF THE DEVICE IS 

* S Ee FOUND TO BE OUT OF PAPER AND NOT IN HOLD 

x PRINT. | . 7 | 

x _ | | | | 

* ENTRY: CHECK & ALARM TURNED ON. 

x EXIT: CC SET ~ PAPER EMPTY TIME QUT > 1 MIN. 
* C CLEAR — HOLD PRINT PRESSED < 1 MINe 
3 iGo coil ok Gc igiclok igiigok dak dcdcdc ski ick dak ik ak kc ak a ak sak ake 

PECHK PSHS  YoX%oA. | ‘ | 

| LDA #(CHKLED!. ALARM) ~ TURN ON CHECK & ALARM © 
JSR  LEDON | . *e a 
LDX #6000 SET TIMER = (2.01 SECe X 6000) = 1.20 MIN. 
10$ LDY #4 © ta | | 
JSR « ¥YTIMR2 CALL TIMER & CHECK HOLD SWITCH 
LDA LEDREG HOLD PRINT BEEN PRESSED ? 
BITA #!NCHLDLED) | a 
BEQ 208 | “~YESs CLEAR CARRY & RETURN 
LEAX =—1 9X —-NOs DECREMENT COUNT 
BNE (10% | LOOP TIL COUNT = 0. 
ORCC #CBIT. TIME OUT EXCEEDEDs SET CARRY 
JMP 305 _ *. : | 7 
208 ANDCC #!IN(CBIT) - CLEAR CARRY 
RETURN >. 


30% PULS AsXoVoPC 


-ISIFP 


| CR6809/11. version 10436420 
TYPE A RS=232 PROGRAM 


F191 


F193 
F195 


F198 


' PLO F 


F19B 
F19D 


FLAL 


FLA3 


Par, 


FLA5 | 


FLAB 


“EB 


 FIB?- 


PLAE - 
F1BO- 


F1B3 


FIB5 


FIBA. 
FLBC 


AS. 
26 


BD 
26 


5A 
26 


1A 


TE 


LC 
35. 


36 


14 
OBB8 


ESCA 
02. 
16 


04 
17 


E4 


13 


—-108E 0004 
oo 

30° | 

E6 


ie 


EO 


FIBC 


FE 
B6 


ISTFP.SRC 


(3450 

3451 
3452 
3453 
3454 — 


3455 
3456 
3457 


3458 


3459 


3460 


3461 
3462 
3463 


— 3464 


3465 


3466 


3467. 


3468 


3469 


3470 © 


3471 
3472 


3473 


3474 


3475. 


3476 
3477 
3478 


3479 


34837 


3480 


3481 
3482 


3484 


3485 


3486 


3487 


3488 — 
3489 


3490 
3491 


3492 


3493 


ol 
as 


5—-Mar-84 


*% 


of 
oe 


: 


t + 


a ee 


44 


sty 


8349356 


meveuics 


EXIT: 


Page 64 7 


sea kook ok ak ak ak ake ak ake ak ok SERIES ECE IGS G ORI IIS Rai IaH Bo 
te | 
ok 


CHECKS FOR BUSY (AND ONLY BUSY). 


ENTRY: 


C CLEAR - 


ACC A 


C SET. 


HOLDS BITS TO EXIT ON IF 
‘FOUND SET IN LOGICAL STATUS 


~ Ss BUSY TIME OUT EXCEEDED 
| (10 MIN. ) 
OR FAULTED 


DEVICE NOT BUSY 
OR HIGHER PRIORITY 
STATUS ADDED | 


FOES SIGE SIGCHI IG SGI CSICOE IGE EGE IG II OK EK 


BSYCHK 


5% 


10% 


PSHS 
LDB 
LDX 
JSR 
BITA 
BNE 


BITA 


~BEQ 


BITA 
BNE 


LDY 
JSR 
LEAX: °" 
BNE | 


DEC. 


BNE 


153.0 


203°. 
308 


ORCC © 


SMP 


ANDCC 


PULS 


Y9Xo ByA 
#20 
#3000 


DVSTSA 


#FLTBIT 
15s 


#BSYBIT 


20%" 


#CBITS. 
303 


#IN(CBIT) 
AsBsXsV¥sPC i 


BUSY TIMER =(.01 SEC X 3000)X 20 = 10 MINe 
GET DEVICE STATUS | 
FAULTED ? | | 
-YES, SET CARRY & RETURN 
-NOsBUSY 2 
“NOx CLEAR CARRY & RETURN 
-YES, ANY EXIT BITS FOUND ? 
~YESy RETURN 
-NOy CALL TIMER € CHECK 40LD_ SW. 


DEC COUNT | 
LOOP TIL COUNT = 0 


TIME OUT EXCEEDED SET CARRY & RETURN 


CLEAR CARRY | 


ISTFP 


F1CO. 


CR6809/11 version 10. 36-6 20 


FIBE 


weg 


FICA. 


F1C5 
FiC? 


FICC 
FCF 
FLD1 


FLD4 


 -F1D6 


~F1D8 


—F1DA 
FLDD 


FLEO 


* Eye: 


FLES 


: TYPE A RS-232 PROGRAM 


as 
see ea @ 


F3DF 


E3Bl 


OISTFP. SRC 


3495 


3496 


3497 


3498. 


3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 


3509 


3510, 


3511 


3512 


3513 


3514. 


(3521-4 
3522 


3515 
3516 
3517 


3518 


3520 


3523 


3524 


3529 


3525 


3526 
3527 


3528 


% 


Rx FOGG CIGIO I IO RaGioK dak kak 


S-Mar-B84 8249256 ; emer’ 


? a AR AE a HE xk ok HOR Eb iddcbk bi ii ie ESERIES HIE 


K 
*  'CLRIR!. CLEARS - INTERVENTION REQUIRED BIT 
x Mee! IN THE STATUS BYTE AND INDICATES 
oe IF IR WAS SETe 
i 
x EXIT: ©C SET = IR WAS SET 
| € CLEAR - 7 IR WAS CLEAR 
. | 
FOIE IGOR Io dak dog tok dak i AE KOK KK oe ee ae CRE Hobie 
CLRIR PSHS =A i 
-LDA HCHKLED TURN OFF THE CHECK LED 
JSR LEDOFF ~ 
LDA #1R- ; | 
BITA STATUS IR SET IN STATUS ? 
BEQ 10% | | 
JSR SBTOFF ~YESs CLEAR IT & SET CARRY 
ORCC. #CBIT. ° 
JMP 20% 
10% ANDCC #!N(CBIT) -NO» CLEAR CARRY 
20%. AsPC 


PULS RETURN. 


JARICUS CECH ICO HIG IH : 


HO 'SETIR © SETS INTERVENTION REQUIRED IN THE 
He STATUS BYTE. 
sek ek IA CHIOS ORIG RIK KK IK ce ake ak ae ok ake ake ak ak ke ok afk ok ak ok 2k 
SETIR LDA #HIR- 
SSR SBITON | 2 
JSR EBITON NOTE IN ERROR CODE 
LDA. #RDYLED TURN OFF THE READY LED 
JSR LEDOFF -p | | 


RTS 


ISIFP CR6809/11 version 10.36.20. 5-Mar-84 8:49:56 _ 


Page 66 
+ PY PE A RS-232 PROGRAM ISIFP2SRC _- * 


35 


PULS 


cho a a z a ae ne 
3532 *eex PRINT CARRIAGE RETURNs LINE FEED 
3533, . } — , > = 
FlIE6 86 03 3534 EOL LDA #NLDBC SEND NEW LINE | 
FlE8  7E F20 3535 JMP DUTCHR _ % 3 
3536 a 
3537 exe x PRINT LINE FEED 
| 3538 
FIEB 86 06 | 3539 PLE LDA #LF 
FIED 7E.F20D 3540 JMP OUTCHR AND OUTPUT LF . 
| 3541 | | -_ 
3542 kX PRINT CARRIAGE RETURN 
-* 3543 . A : 
FIFO 86 05 3544  PCRI LDA #CR 
FIF2  7E F200 3545 JMP OUTCHR 
: 3546 | | | 
3547 RE PRINT A SPACE 
_ 3548 
FIF5 86 10 3549  PSPAC LDA #SPDBC 
FIF7 7E F20D° 3550 JMP OUTCHR 
3552 GRIGG Gio ig i ag a i a kok aka ak ai kook a aka ak aka a keke a aka a ake a ake aca akc ak kee ae ake ak ak ae ac ake ak a 
3553 * "PRINTA' TESTS FOR ROOM TG PRINT ON CURRENT LINE» AND * 
3554 * THEN PRINTS THE CHARACTER IF THERE IS ROOM. IF NO ROOM, * 
3555 * IT STARTS A NEW LINE THEN DOES THE PRINTe * 
3556 * THIS ROUTINE SHOULD ALWAYS AND ONLY BE USED FOR LUI * 
3557... %-. GRAPHICS !!! <3 ie ae, | me aes os * 
3558 2 A A AE A 2 2 2 AE a EC KE 2 RE 2 I RK a a 2 ES ae RK aK aK a a ie ae a ae ie as 2 2s 2 a a ac aK ai A aie a a aK 
3559 : | | —— | : _ oe 
3560 | | 
FIFA 34 02 3561  PRINTA PSHS A 
F1FC 96 32 3562 © LDA MPPL | 
FIFE 91 30 3563 —CMPA HP1 MPP BEEN EXCEEDED? 
F200 24 07 3564 BHS 34% -NOy JUST PRINT IT 
| ae 3565 | | . | oe ; es ek. 
F202. BD EFA4 3566 JSR NL1SUB -~YESs DO AN LUL NEW LINE FIRST 
F205 24 02 3567 BCG. 3% --- ee ee 
ee 3568 a woe . | : Me as oe 
F207 35 82 3569 — PULS ~AgPC RETURN WITH CARRY SET IF NL FAILED > 
F209 OC 30 + Both 3s. INC HPL. 223 - UPDATE COLUMN POSITION 
F20B 02 BOTA 2 * OA | 


FALL INTO: QUTCHR: - ..: 


TS PRP 


F20D 
E208 


 F2il 


F210 


F213 
F215 


F219 


F21B 


F21D 


Fair 
F221 


F228 


F223 


F225 


F22A 


F220 


F230 — 


F232 


F235 


F237 


F241 


F234 


F23C. 


F23F 


F244 


vi FSB! ok 


F247 


F24A_ 


ea 


27 


81 


2¢ 


81 


27 


16 


05 — 
2D . 


02 
32 


06 
2E 


5A 


LF 


F263 


at 


F280 
1589 


E9B8 
28 


F243 


F31LF 


F232 


F2DD © 


F2E6 


F261 
5A 
S200 #47. 
5 ae 


a4 


ISIFP.SRC 


7 TSH CRO809/11 version 10.36+20 
TYPE A RS=232 PROGRAM — : 


(3574 


3576. 
3577 


3575 


3578 
3579 


3580. 
3581 

3582 
3583 
3584 


3585 


3586 


3587 


3588 
3589 


3590 
3591 


3O92 


3593 


3594 


“3999 
3596 
“297 


3605 
3606 
3607. 
3608 


3598 
3599 
3600. 
3601 
3602 
3603 


3604 


3609 


3610 


3611 
3612 


B61 a. 


— 3614 
3615 


3616 


3617 
~—3618 


3619. 
3020. 
562. 
3622.08 
(3623 
BOe Ge ee, 
3625.26 


‘SoMar=94 


x st te 
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FAIS SIGISI IR CIIGEIO IG IRCA ICI AGI a a acai ik i ik GCS oI diag k JOIGORIOK IIo Raa ik 


ee fOUTCHR' PRINTS THE NEW CHARACTER (NC) SENT IN ACCAe IT USES A *- 
CIRCULAR BUFFER TO STORE CHARACTERS TO BE PRINTED IF THE PRINTER * 

IS NOT READY TO ACCEPT ANOTHER CHARACTERe WHEN THE. OUTPUT BUFFER * 

IS FULLs IT WAITS UNTIL PRINTER IS READYs THEN SENDS THE WHOLE  * 


: —QUTPUT BUFFER TO THE PRINTER.» IF PRINTER NOT READY AND BUFFER NOT# 
e FULL, OUTCHR STORES THE NC AND RETURNS TO MAIN PROGRAM FOR A NEW. * 
. CHARACTER TILL THE BUFFER IS FULL» NOTE THAT QUTCHR IS NOT REEN- * 
¥ TRANT BECAUSE IT USES GLOBAL POINTERS AND SAVES Xx INSTEAD OF PSHX* 
= FOR THE SAKE OF HIGHER SPEED. x 
ESE SESH EHO CEE HSE EEE EEE EES EE Ea EEE EEE 
OUTCHR PSHS> AsB eX 
CMPA #NLDBC CK FOR PAPER MOTION COMMANDS TO SIGNAL 
BEQ 34 | LINE BUFFER FULL 
CMPA #ER 
BEQ 34 
CMPA HERE 
BEQ 63 
CMPA —#LF 
BEQ sO 
LOB INCNT. 
-CMPB. #253 GUTPUT BUFFER FULL? 
BEQ 3S =NO 
JSR SPCCHK CHECK FOR SPECIAL” CASES - 
BCS 5S C SET MEANS PRINTER DEAD 
JSR STORNC : . | 
TST BIPRNT DDING BIDIRECTIONAL PRINTS?~ 
BNE 43 -YES,; BUFFER MUST BE FULL BEFORE PRINTING 
25 =<. SR DEVTST PRINTER READY? 
| BNE 4$ =NOy RETURN — 
ISR. —ETCHPC ANYTHING TO PRINT? 
BNE a8 “NOs RETURN 
JSR Hutt: IF NO ERROR» OUTPUT CHARACTER 
e805.) “5a © os 
JMP nogt 
3g isk .SToReer: STORE. THE LAST (CONTROL) CHAR~ 
| JSR EMTYBE | a . e : 
SMP. 5S RETRUN WITH VALID CC STATUS ~ 
6% LDB.~——sOINCNT SAVE INCNT TO SPACE QUT LATER.” 
eae SUSR  STORLe» «STORE THE LAST (CONTROL) CHAR 
Hee EDA | HOR er en ee ee ee ee ke eee te 


